Nektar++
Loading...
Searching...
No Matches
Public Member Functions | Protected Attributes | Private Member Functions | List of all members
Nektar::Collections::PhysDeriv_SumFac_Pyr Class Referencefinal

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

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

Public Member Functions

 ~PhysDeriv_SumFac_Pyr () final=default
 
void operator() (const Array< OneD, const NekDouble > &input, Array< OneD, NekDouble > &output0, Array< OneD, NekDouble > &output1, Array< OneD, NekDouble > &output2, Array< OneD, NekDouble > &wsp) final
 Perform operation.
 
void operator() (int dir, const Array< OneD, const NekDouble > &input, Array< OneD, NekDouble > &output, Array< OneD, NekDouble > &wsp) final
 
- Public Member Functions inherited from Nektar::Collections::Operator
 Operator (std::vector< LocalRegions::ExpansionSharedPtr > pCollExp, std::shared_ptr< CoalescedGeomData > GeomData, StdRegions::FactorMap factors)
 Constructor.
 
virtual ~Operator ()=default
 
virtual COLLECTIONS_EXPORT void UpdateFactors (StdRegions::FactorMap factors)
 Update the supplied factor map.
 
virtual COLLECTIONS_EXPORT void UpdateVarcoeffs (StdRegions::VarCoeffMap &varcoeffs)
 Update the supplied variable coefficients.
 
unsigned int GetWspSize ()
 Get the size of the required workspace.
 
unsigned int GetNumElmt ()
 Get number of elements.
 
StdRegions::StdExpansionSharedPtr GetExpSharedPtr ()
 Get expansion pointer.
 
unsigned int GetInputSize (void)
 
unsigned int GetOutputSize (void)
 
unsigned int GetPhysSize (void)
 
unsigned int GetCoeffSize (void)
 

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
 
Array< OneD, NekDouble > m_fac2
 
- Protected Attributes inherited from Nektar::Collections::Operator
bool m_isDeformed
 
StdRegions::StdExpansionSharedPtr m_stdExp
 
unsigned int m_numElmt
 number of elements that the operator is applied on
 
unsigned int m_nqe
 
unsigned int m_wspSize
 
unsigned int m_inputSize
 number of modes or quadrature points that are passed as input to an operator
 
unsigned int m_outputSize
 number of modes or quadrature points that are taken as output from an operator
 

Private Member Functions

 PhysDeriv_SumFac_Pyr (vector< LocalRegions::ExpansionSharedPtr > pCollExp, CoalescedGeomDataSharedPtr pGeomData, StdRegions::FactorMap factors)
 

Additional Inherited Members

- Protected Member Functions inherited from Nektar::Collections::PhysDeriv_Helper
 PhysDeriv_Helper ()
 

Detailed Description

Phys deriv operator using sum-factorisation (Pyramid)

Definition at line 1897 of file PhysDeriv.cpp.

Constructor & Destructor Documentation

◆ ~PhysDeriv_SumFac_Pyr()

Nektar::Collections::PhysDeriv_SumFac_Pyr::~PhysDeriv_SumFac_Pyr ( )
finaldefault

◆ PhysDeriv_SumFac_Pyr()

Nektar::Collections::PhysDeriv_SumFac_Pyr::PhysDeriv_SumFac_Pyr ( vector< LocalRegions::ExpansionSharedPtr >  pCollExp,
CoalescedGeomDataSharedPtr  pGeomData,
StdRegions::FactorMap  factors 
)
inlineprivate

Definition at line 2101 of file PhysDeriv.cpp.

2104 : Operator(pCollExp, pGeomData, factors), PhysDeriv_Helper(),
2105 m_nquad0(m_stdExp->GetNumPoints(0)),
2106 m_nquad1(m_stdExp->GetNumPoints(1)),
2107 m_nquad2(m_stdExp->GetNumPoints(2))
2108 {
2109 m_coordim = pCollExp[0]->GetCoordim();
2110
2111 m_derivFac = pGeomData->GetDerivFactors(pCollExp);
2112
2113 const Array<OneD, const NekDouble> &z0 = m_stdExp->GetBasis(0)->GetZ();
2114 const Array<OneD, const NekDouble> &z1 = m_stdExp->GetBasis(1)->GetZ();
2115 const Array<OneD, const NekDouble> &z2 = m_stdExp->GetBasis(2)->GetZ();
2116 m_fac0 = Array<OneD, NekDouble>(m_nquad0 * m_nquad1 * m_nquad2);
2117 m_fac1 = Array<OneD, NekDouble>(m_nquad0 * m_nquad1 * m_nquad2);
2118 m_fac2 = Array<OneD, NekDouble>(m_nquad0 * m_nquad1 * m_nquad2);
2119
2120 int nq0_nq1 = m_nquad0 * m_nquad1;
2121 for (int i = 0; i < m_nquad0; ++i)
2122 {
2123 for (int j = 0; j < m_nquad1; ++j)
2124 {
2125 int ifac = i + j * m_nquad0;
2126 for (int k = 0; k < m_nquad2; ++k)
2127 {
2128 m_fac0[ifac + k * nq0_nq1] = 2.0 / (1 - z2[k]);
2129 m_fac1[ifac + k * nq0_nq1] = 0.5 * (1 + z0[i]);
2130 m_fac2[ifac + k * nq0_nq1] = 0.5 * (1 + z1[j]);
2131 }
2132 }
2133 }
2134
2135 m_Deriv0 = &((m_stdExp->GetBasis(0)->GetD())->GetPtr())[0];
2136 m_Deriv1 = &((m_stdExp->GetBasis(1)->GetD())->GetPtr())[0];
2137 m_Deriv2 = &((m_stdExp->GetBasis(2)->GetD())->GetPtr())[0];
2138
2139 m_wspSize = 3 * m_nquad0 * m_nquad1 * m_nquad2 * m_numElmt;
2140 }
Nektar::Collections::Operator::m_stdExp
StdRegions::StdExpansionSharedPtr m_stdExp
Definition Operator.h:230
Nektar::Collections::Operator::m_numElmt
unsigned int m_numElmt
number of elements that the operator is applied on
Definition Operator.h:232
Nektar::Collections::Operator::Operator
Operator(std::vector< LocalRegions::ExpansionSharedPtr > pCollExp, std::shared_ptr< CoalescedGeomData > GeomData, StdRegions::FactorMap factors)
Constructor.
Definition Operator.cpp:66
Nektar::Collections::PhysDeriv_Helper::PhysDeriv_Helper
PhysDeriv_Helper()
Definition PhysDeriv.cpp:65
Nektar::Collections::PhysDeriv_SumFac_Pyr::m_nquad2
const int m_nquad2
Definition PhysDeriv.cpp:2092
Nektar::Collections::PhysDeriv_SumFac_Pyr::m_nquad0
const int m_nquad0
Definition PhysDeriv.cpp:2090
Nektar::Collections::PhysDeriv_SumFac_Pyr::m_coordim
int m_coordim
Definition PhysDeriv.cpp:2089
Nektar::Collections::PhysDeriv_SumFac_Pyr::m_fac1
Array< OneD, NekDouble > m_fac1
Definition PhysDeriv.cpp:2097
Nektar::Collections::PhysDeriv_SumFac_Pyr::m_Deriv0
NekDouble * m_Deriv0
Definition PhysDeriv.cpp:2093
Nektar::Collections::PhysDeriv_SumFac_Pyr::m_fac2
Array< OneD, NekDouble > m_fac2
Definition PhysDeriv.cpp:2098
Nektar::Collections::PhysDeriv_SumFac_Pyr::m_derivFac
Array< TwoD, const NekDouble > m_derivFac
Definition PhysDeriv.cpp:2088
Nektar::Collections::PhysDeriv_SumFac_Pyr::m_Deriv1
NekDouble * m_Deriv1
Definition PhysDeriv.cpp:2094
Nektar::Collections::PhysDeriv_SumFac_Pyr::m_Deriv2
NekDouble * m_Deriv2
Definition PhysDeriv.cpp:2095
Nektar::Collections::PhysDeriv_SumFac_Pyr::m_fac0
Array< OneD, NekDouble > m_fac0
Definition PhysDeriv.cpp:2096
Nektar::Collections::PhysDeriv_SumFac_Pyr::m_nquad1
const int m_nquad1
Definition PhysDeriv.cpp:2091

References m_coordim, m_Deriv0, m_Deriv1, m_Deriv2, m_derivFac, m_fac0, m_fac1, m_fac2, 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

◆ operator()() [1/2]

void Nektar::Collections::PhysDeriv_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 
)
inlinefinalvirtual

Perform operation.

Implements Nektar::Collections::Operator.

Definition at line 1905 of file PhysDeriv.cpp.

1910 {
1911 int nPhys = m_stdExp->GetTotPoints();
1912 int ntot = m_numElmt * nPhys;
1913 Array<OneD, NekDouble> tmp0, tmp1, tmp2;
1914 Array<OneD, Array<OneD, NekDouble>> Diff(3);
1915 Array<OneD, Array<OneD, NekDouble>> out(3);
1916 out[0] = output0;
1917 out[1] = output1;
1918 out[2] = output2;
1919
1920 for (int i = 0; i < 3; ++i)
1921 {
1922 Diff[i] = wsp + i * ntot;
1923 }
1924
1925 // dEta0
1926 Blas::Dgemm('N', 'N', m_nquad0, m_nquad1 * m_nquad2 * m_numElmt,
1927 m_nquad0, 1.0, m_Deriv0, m_nquad0, &input[0], m_nquad0, 0.0,
1928 &Diff[0][0], m_nquad0);
1929
1930 int cnt = 0;
1931 for (int i = 0; i < m_numElmt; ++i)
1932 {
1933 // dEta 1
1934 for (int j = 0; j < m_nquad2; ++j)
1935 {
1936 Blas::Dgemm('N', 'T', m_nquad0, m_nquad1, m_nquad1, 1.0,
1937 &input[i * nPhys + j * m_nquad0 * m_nquad1],
1938 m_nquad0, m_Deriv1, m_nquad1, 0.0,
1939 &Diff[1][i * nPhys + j * m_nquad0 * m_nquad1],
1940 m_nquad0);
1941 }
1942
1943 // dEta 2
1944 Blas::Dgemm('N', 'T', m_nquad0 * m_nquad1, m_nquad2, m_nquad2, 1.0,
1945 &input[i * nPhys], m_nquad0 * m_nquad1, m_Deriv2,
1946 m_nquad2, 0.0, &Diff[2][i * nPhys],
1947 m_nquad0 * m_nquad1);
1948
1949 // dxi0 = 2/(1-eta_2) d Eta_0
1950 Vmath::Vmul(nPhys, &m_fac0[0], 1, Diff[0].data() + cnt, 1,
1951 Diff[0].data() + cnt, 1);
1952
1953 // dxi1 = 2/(1-eta_2) d Eta_1
1954 Vmath::Vmul(nPhys, &m_fac0[0], 1, Diff[1].data() + cnt, 1,
1955 Diff[1].data() + cnt, 1);
1956
1957 // dxi2 = (1+eta0)/(1-eta_2) d Eta_0 + d/dEta2;
1958 Vmath::Vvtvp(nPhys, &m_fac1[0], 1, Diff[0].data() + cnt, 1,
1959 Diff[2].data() + cnt, 1, Diff[2].data() + cnt, 1);
1960
1961 // dxi2 += (1+eta1)/(1-eta_2) d Eta_1
1962 Vmath::Vvtvp(nPhys, &m_fac2[0], 1, Diff[1].data() + cnt, 1,
1963 Diff[2].data() + cnt, 1, Diff[2].data() + cnt, 1);
1964 cnt += nPhys;
1965 }
1966
1967 // calculate full derivative
1968 if (m_isDeformed)
1969 {
1970 for (int i = 0; i < m_coordim; ++i)
1971 {
1972 Vmath::Vmul(ntot, m_derivFac[i * 3], 1, Diff[0], 1, out[i], 1);
1973 for (int j = 1; j < 3; ++j)
1974 {
1975 Vmath::Vvtvp(ntot, m_derivFac[i * 3 + j], 1, Diff[j], 1,
1976 out[i], 1, out[i], 1);
1977 }
1978 }
1979 }
1980 else
1981 {
1982 Array<OneD, NekDouble> t;
1983 for (int e = 0; e < m_numElmt; ++e)
1984 {
1985 for (int i = 0; i < m_coordim; ++i)
1986 {
1987 Vmath::Smul(m_nqe, m_derivFac[i * 3][e],
1988 Diff[0] + e * m_nqe, 1, t = out[i] + e * m_nqe,
1989 1);
1990
1991 for (int j = 1; j < 3; ++j)
1992 {
1993 Vmath::Svtvp(m_nqe, m_derivFac[i * 3 + j][e],
1994 Diff[j] + e * m_nqe, 1, out[i] + e * m_nqe,
1995 1, t = out[i] + e * m_nqe, 1);
1996 }
1997 }
1998 }
1999 }
2000 }
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:324
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.hpp:72
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.hpp:396
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.hpp:366
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.hpp:100

References Blas::Dgemm(), m_coordim, m_Deriv0, m_Deriv1, m_Deriv2, m_derivFac, m_fac0, m_fac1, m_fac2, 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_Pyr::operator() ( int  dir,
const Array< OneD, const NekDouble > &  input,
Array< OneD, NekDouble > &  output,
Array< OneD, NekDouble > &  wsp 
)
inlinefinalvirtual

Implements Nektar::Collections::Operator.

Definition at line 2002 of file PhysDeriv.cpp.

2005 {
2006 int nPhys = m_stdExp->GetTotPoints();
2007 int ntot = m_numElmt * nPhys;
2008 Array<OneD, NekDouble> tmp0, tmp1, tmp2;
2009 Array<OneD, Array<OneD, NekDouble>> Diff(3);
2010
2011 for (int i = 0; i < 3; ++i)
2012 {
2013 Diff[i] = wsp + i * ntot;
2014 }
2015
2016 // dEta0
2017 Blas::Dgemm('N', 'N', m_nquad0, m_nquad1 * m_nquad2 * m_numElmt,
2018 m_nquad0, 1.0, m_Deriv0, m_nquad0, &input[0], m_nquad0, 0.0,
2019 &Diff[0][0], m_nquad0);
2020
2021 int cnt = 0;
2022 for (int i = 0; i < m_numElmt; ++i)
2023 {
2024 // dEta 1
2025 for (int j = 0; j < m_nquad2; ++j)
2026 {
2027 Blas::Dgemm('N', 'T', m_nquad0, m_nquad1, m_nquad1, 1.0,
2028 &input[i * nPhys + j * m_nquad0 * m_nquad1],
2029 m_nquad0, m_Deriv1, m_nquad1, 0.0,
2030 &Diff[1][i * nPhys + j * m_nquad0 * m_nquad1],
2031 m_nquad0);
2032 }
2033
2034 // dEta 2
2035 Blas::Dgemm('N', 'T', m_nquad0 * m_nquad1, m_nquad2, m_nquad2, 1.0,
2036 &input[i * nPhys], m_nquad0 * m_nquad1, m_Deriv2,
2037 m_nquad2, 0.0, &Diff[2][i * nPhys],
2038 m_nquad0 * m_nquad1);
2039
2040 // dxi0 = 2/(1-eta_2) d Eta_0
2041 Vmath::Vmul(nPhys, &m_fac0[0], 1, Diff[0].data() + cnt, 1,
2042 Diff[0].data() + cnt, 1);
2043
2044 // dxi1 = 2/(1-eta_2) d Eta_1
2045 Vmath::Vmul(nPhys, &m_fac0[0], 1, Diff[1].data() + cnt, 1,
2046 Diff[1].data() + cnt, 1);
2047
2048 // dxi2 = (1+eta0)/(1-eta_2) d Eta_0 + d/dEta2;
2049 Vmath::Vvtvp(nPhys, &m_fac1[0], 1, Diff[0].data() + cnt, 1,
2050 Diff[2].data() + cnt, 1, Diff[2].data() + cnt, 1);
2051
2052 // dxi2 = (1+eta1)/(1-eta_2) d Eta_1 + d/dEta2;
2053 Vmath::Vvtvp(nPhys, &m_fac2[0], 1, Diff[1].data() + cnt, 1,
2054 Diff[2].data() + cnt, 1, Diff[2].data() + cnt, 1);
2055 cnt += nPhys;
2056 }
2057
2058 // calculate full derivative
2059 if (m_isDeformed)
2060 {
2061 // calculate full derivative
2062 Vmath::Vmul(ntot, m_derivFac[dir * 3], 1, Diff[0], 1, output, 1);
2063 for (int j = 1; j < 3; ++j)
2064 {
2065 Vmath::Vvtvp(ntot, m_derivFac[dir * 3 + j], 1, Diff[j], 1,
2066 output, 1, output, 1);
2067 }
2068 }
2069 else
2070 {
2071 Array<OneD, NekDouble> t;
2072 for (int e = 0; e < m_numElmt; ++e)
2073 {
2074 Vmath::Smul(m_nqe, m_derivFac[dir * 3][e], Diff[0] + e * m_nqe,
2075 1, t = output + e * m_nqe, 1);
2076
2077 for (int j = 1; j < 3; ++j)
2078 {
2079 Vmath::Svtvp(m_nqe, m_derivFac[dir * 3 + j][e],
2080 Diff[j] + e * m_nqe, 1, output + e * m_nqe, 1,
2081 t = output + e * m_nqe, 1);
2082 }
2083 }
2084 }
2085 }

References Blas::Dgemm(), m_Deriv0, m_Deriv1, m_Deriv2, m_derivFac, m_fac0, m_fac1, m_fac2, 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_Pyr::m_coordim
protected

Definition at line 2089 of file PhysDeriv.cpp.

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

◆ m_Deriv0

NekDouble* Nektar::Collections::PhysDeriv_SumFac_Pyr::m_Deriv0
protected

Definition at line 2093 of file PhysDeriv.cpp.

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

◆ m_Deriv1

NekDouble* Nektar::Collections::PhysDeriv_SumFac_Pyr::m_Deriv1
protected

Definition at line 2094 of file PhysDeriv.cpp.

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

◆ m_Deriv2

NekDouble* Nektar::Collections::PhysDeriv_SumFac_Pyr::m_Deriv2
protected

Definition at line 2095 of file PhysDeriv.cpp.

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

◆ m_derivFac

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

Definition at line 2088 of file PhysDeriv.cpp.

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

◆ m_fac0

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

Definition at line 2096 of file PhysDeriv.cpp.

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

◆ m_fac1

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

Definition at line 2097 of file PhysDeriv.cpp.

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

◆ m_fac2

Array<OneD, NekDouble> Nektar::Collections::PhysDeriv_SumFac_Pyr::m_fac2
protected

Definition at line 2098 of file PhysDeriv.cpp.

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

◆ m_nquad0

const int Nektar::Collections::PhysDeriv_SumFac_Pyr::m_nquad0
protected

Definition at line 2090 of file PhysDeriv.cpp.

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

◆ m_nquad1

const int Nektar::Collections::PhysDeriv_SumFac_Pyr::m_nquad1
protected

Definition at line 2091 of file PhysDeriv.cpp.

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

◆ m_nquad2

const int Nektar::Collections::PhysDeriv_SumFac_Pyr::m_nquad2
protected

Definition at line 2092 of file PhysDeriv.cpp.

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

Generated on Sat Jul 4 2026 01:02:28 for Nektar++ by doxygen 1.9.8