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

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

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

Public Member Functions

 ~PhysDeriv_SumFac_Tri () 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 ~Operator ()
 
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

int m_coordim
 
const int m_nquad0
 
const int m_nquad1
 
Array< TwoD, const NekDouble > m_derivFac
 
NekDouble * m_Deriv0
 
NekDouble * m_Deriv1
 
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_Tri (vector< StdRegions::StdExpansionSharedPtr > pCollExp, CoalescedGeomDataSharedPtr pGeomData, StdRegions::FactorMap factors)
 

Detailed Description

Phys deriv operator using sum-factorisation (Tri)

Definition at line 1059 of file PhysDeriv.cpp.

Constructor & Destructor Documentation

◆ ~PhysDeriv_SumFac_Tri()

Nektar::Collections::PhysDeriv_SumFac_Tri::~PhysDeriv_SumFac_Tri ( )
inlinefinal

Definition at line 1064 of file PhysDeriv.cpp.

1065  {
1066  }

◆ PhysDeriv_SumFac_Tri()

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

Definition at line 1225 of file PhysDeriv.cpp.

1228  : Operator(pCollExp, pGeomData, factors),
1229  m_nquad0(m_stdExp->GetNumPoints(0)),
1230  m_nquad1(m_stdExp->GetNumPoints(1))
1231  {
1232  LibUtilities::PointsKeyVector PtsKey = m_stdExp->GetPointsKeys();
1233  m_coordim = pCollExp[0]->GetCoordim();
1234 
1235  m_derivFac = pGeomData->GetDerivFactors(pCollExp);
1236 
1237  const Array<OneD, const NekDouble> &z0 = m_stdExp->GetBasis(0)->GetZ();
1238  const Array<OneD, const NekDouble> &z1 = m_stdExp->GetBasis(1)->GetZ();
1239  m_fac0 = Array<OneD, NekDouble>(m_nquad0 * m_nquad1);
1240  // set up geometric factor: 0.5*(1+z0)
1241  for (int i = 0; i < m_nquad0; ++i)
1242  {
1243  for (int j = 0; j < m_nquad1; ++j)
1244  {
1245  m_fac0[i + j * m_nquad0] = 0.5 * (1 + z0[i]);
1246  }
1247  }
1248 
1249  m_fac1 = Array<OneD, NekDouble>(m_nquad0 * m_nquad1);
1250  // set up geometric factor: 2/(1-z1)
1251  for (int i = 0; i < m_nquad0; ++i)
1252  {
1253  for (int j = 0; j < m_nquad1; ++j)
1254  {
1255  m_fac1[i + j * m_nquad0] = 2.0 / (1 - z1[j]);
1256  }
1257  }
1258 
1259  m_Deriv0 = &((m_stdExp->GetBasis(0)->GetD())->GetPtr())[0];
1260  m_Deriv1 = &((m_stdExp->GetBasis(1)->GetD())->GetPtr())[0];
1261  m_wspSize = 2 * m_nquad0 * m_nquad1 * m_numElmt;
1262  }
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_Tri::m_Deriv1
NekDouble * m_Deriv1
Definition: PhysDeriv.cpp:1220
Nektar::Collections::PhysDeriv_SumFac_Tri::m_nquad0
const int m_nquad0
Definition: PhysDeriv.cpp:1216
Nektar::Collections::PhysDeriv_SumFac_Tri::m_fac1
Array< OneD, NekDouble > m_fac1
Definition: PhysDeriv.cpp:1222
Nektar::Collections::PhysDeriv_SumFac_Tri::m_coordim
int m_coordim
Definition: PhysDeriv.cpp:1215
Nektar::Collections::PhysDeriv_SumFac_Tri::m_nquad1
const int m_nquad1
Definition: PhysDeriv.cpp:1217
Nektar::Collections::PhysDeriv_SumFac_Tri::m_derivFac
Array< TwoD, const NekDouble > m_derivFac
Definition: PhysDeriv.cpp:1218
Nektar::Collections::PhysDeriv_SumFac_Tri::m_Deriv0
NekDouble * m_Deriv0
Definition: PhysDeriv.cpp:1219
Nektar::Collections::PhysDeriv_SumFac_Tri::m_fac0
Array< OneD, NekDouble > m_fac0
Definition: PhysDeriv.cpp:1221
Nektar::LibUtilities::PointsKeyVector
std::vector< PointsKey > PointsKeyVector
Definition: Points.h:250

Member Function Documentation

◆ CheckFactors()

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

Check the validity of the supplied factor map.

Implements Nektar::Collections::Operator.

Definition at line 1207 of file PhysDeriv.cpp.

1209  {
1210  boost::ignore_unused(factors, coll_phys_offset);
1211  ASSERTL0(false, "Not valid for this operator.");
1212  }
ASSERTL0
#define ASSERTL0(condition, msg)
Definition: ErrorUtil.hpp:215

References ASSERTL0.

◆ operator()() [1/2]

void Nektar::Collections::PhysDeriv_SumFac_Tri::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 1068 of file PhysDeriv.cpp.

1073  {
1074 
1075  const int nqtot = m_nquad0 * m_nquad1;
1076  const int nqcol = nqtot * m_numElmt;
1077 
1078  ASSERTL1(wsp.size() == m_wspSize, "Incorrect workspace size");
1079  ASSERTL1(input.size() >= nqcol, "Incorrect input size");
1080 
1081  Array<OneD, NekDouble> diff0(nqcol, wsp);
1082  Array<OneD, NekDouble> diff1(nqcol, wsp + nqcol);
1083 
1084  // Tensor Product Derivative
1085  Blas::Dgemm('N', 'N', m_nquad0, m_nquad1 * m_numElmt, m_nquad0, 1.0,
1086  m_Deriv0, m_nquad0, input.get(), m_nquad0, 0.0, diff0.get(),
1087  m_nquad0);
1088 
1089  int cnt = 0;
1090  for (int i = 0; i < m_numElmt; ++i, cnt += nqtot)
1091  {
1092  // scale diff0 by geometric factor: 2/(1-z1)
1093  Vmath::Vmul(nqtot, &m_fac1[0], 1, diff0.get() + cnt, 1,
1094  diff0.get() + cnt, 1);
1095 
1096  Blas::Dgemm('N', 'T', m_nquad0, m_nquad1, m_nquad1, 1.0,
1097  input.get() + cnt, m_nquad0, m_Deriv1, m_nquad1, 0.0,
1098  diff1.get() + cnt, m_nquad0);
1099 
1100  // add to diff1 by diff0 scaled by: (1_z0)/(1-z1)
1101  Vmath::Vvtvp(nqtot, m_fac0.get(), 1, diff0.get() + cnt, 1,
1102  diff1.get() + cnt, 1, diff1.get() + cnt, 1);
1103  }
1104 
1105  if (m_isDeformed)
1106  {
1107  Vmath::Vmul(nqcol, m_derivFac[0], 1, diff0, 1, output0, 1);
1108  Vmath::Vvtvp(nqcol, m_derivFac[1], 1, diff1, 1, output0, 1, output0,
1109  1);
1110  Vmath::Vmul(nqcol, m_derivFac[2], 1, diff0, 1, output1, 1);
1111  Vmath::Vvtvp(nqcol, m_derivFac[3], 1, diff1, 1, output1, 1, output1,
1112  1);
1113 
1114  if (m_coordim == 3)
1115  {
1116  Vmath::Vmul(nqcol, m_derivFac[4], 1, diff0, 1, output2, 1);
1117  Vmath::Vvtvp(nqcol, m_derivFac[5], 1, diff1, 1, output2, 1,
1118  output2, 1);
1119  }
1120  }
1121  else
1122  {
1123  Array<OneD, NekDouble> t;
1124  for (int e = 0; e < m_numElmt; ++e)
1125  {
1126  Vmath::Smul(m_nqe, m_derivFac[0][e], diff0 + e * m_nqe, 1,
1127  t = output0 + e * m_nqe, 1);
1128  Vmath::Svtvp(m_nqe, m_derivFac[1][e], diff1 + e * m_nqe, 1,
1129  output0 + e * m_nqe, 1, t = output0 + e * m_nqe,
1130  1);
1131 
1132  Vmath::Smul(m_nqe, m_derivFac[2][e], diff0 + e * m_nqe, 1,
1133  t = output1 + e * m_nqe, 1);
1134  Vmath::Svtvp(m_nqe, m_derivFac[3][e], diff1 + e * m_nqe, 1,
1135  output1 + e * m_nqe, 1, t = output1 + e * m_nqe,
1136  1);
1137  }
1138 
1139  if (m_coordim == 3)
1140  {
1141  for (int e = 0; e < m_numElmt; ++e)
1142  {
1143  Vmath::Smul(m_nqe, m_derivFac[4][e], diff0 + e * m_nqe, 1,
1144  t = output2 + e * m_nqe, 1);
1145  Vmath::Svtvp(m_nqe, m_derivFac[5][e], diff1 + e * m_nqe, 1,
1146  output2 + e * m_nqe, 1,
1147  t = output2 + e * m_nqe, 1);
1148  }
1149  }
1150  }
1151  }
ASSERTL1
#define ASSERTL1(condition, msg)
Assert Level 1 – Debugging which is used whether in FULLDEBUG or DEBUG compilation mode....
Definition: ErrorUtil.hpp:249
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:368
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:209
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:622
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:574
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:248

References ASSERTL1, Blas::Dgemm(), Vmath::Smul(), Vmath::Svtvp(), Vmath::Vmul(), and Vmath::Vvtvp().

◆ operator()() [2/2]

void Nektar::Collections::PhysDeriv_SumFac_Tri::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 1153 of file PhysDeriv.cpp.

1156  {
1157  const int nqtot = m_nquad0 * m_nquad1;
1158  const int nqcol = nqtot * m_numElmt;
1159 
1160  ASSERTL1(wsp.size() == m_wspSize, "Incorrect workspace size");
1161  ASSERTL1(input.size() >= nqcol, "Incorrect input size");
1162 
1163  Array<OneD, NekDouble> diff0(nqcol, wsp);
1164  Array<OneD, NekDouble> diff1(nqcol, wsp + nqcol);
1165 
1166  // Tensor Product Derivative
1167  Blas::Dgemm('N', 'N', m_nquad0, m_nquad1 * m_numElmt, m_nquad0, 1.0,
1168  m_Deriv0, m_nquad0, input.get(), m_nquad0, 0.0, diff0.get(),
1169  m_nquad0);
1170 
1171  int cnt = 0;
1172  for (int i = 0; i < m_numElmt; ++i, cnt += nqtot)
1173  {
1174  // scale diff0 by geometric factor: 2/(1-z1)
1175  Vmath::Vmul(nqtot, &m_fac1[0], 1, diff0.get() + cnt, 1,
1176  diff0.get() + cnt, 1);
1177 
1178  Blas::Dgemm('N', 'T', m_nquad0, m_nquad1, m_nquad1, 1.0,
1179  input.get() + cnt, m_nquad0, m_Deriv1, m_nquad1, 0.0,
1180  diff1.get() + cnt, m_nquad0);
1181 
1182  // add to diff1 by diff0 scaled by: (1_z0)/(1-z1)
1183  Vmath::Vvtvp(nqtot, m_fac0.get(), 1, diff0.get() + cnt, 1,
1184  diff1.get() + cnt, 1, diff1.get() + cnt, 1);
1185  }
1186 
1187  if (m_isDeformed)
1188  {
1189  Vmath::Vmul(nqcol, m_derivFac[2 * dir], 1, diff0, 1, output, 1);
1190  Vmath::Vvtvp(nqcol, m_derivFac[2 * dir + 1], 1, diff1, 1, output, 1,
1191  output, 1);
1192  }
1193  else
1194  {
1195  Array<OneD, NekDouble> t;
1196  for (int e = 0; e < m_numElmt; ++e)
1197  {
1198  Vmath::Smul(m_nqe, m_derivFac[2 * dir][e], diff0 + e * m_nqe, 1,
1199  t = output + e * m_nqe, 1);
1200  Vmath::Svtvp(m_nqe, m_derivFac[2 * dir + 1][e],
1201  diff1 + e * m_nqe, 1, output + e * m_nqe, 1,
1202  t = output + e * m_nqe, 1);
1203  }
1204  }
1205  }

References ASSERTL1, Blas::Dgemm(), Vmath::Smul(), Vmath::Svtvp(), Vmath::Vmul(), and Vmath::Vvtvp().

Member Data Documentation

◆ m_coordim

int Nektar::Collections::PhysDeriv_SumFac_Tri::m_coordim
protected

Definition at line 1215 of file PhysDeriv.cpp.

◆ m_Deriv0

NekDouble* Nektar::Collections::PhysDeriv_SumFac_Tri::m_Deriv0
protected

Definition at line 1219 of file PhysDeriv.cpp.

◆ m_Deriv1

NekDouble* Nektar::Collections::PhysDeriv_SumFac_Tri::m_Deriv1
protected

Definition at line 1220 of file PhysDeriv.cpp.

◆ m_derivFac

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

Definition at line 1218 of file PhysDeriv.cpp.

◆ m_fac0

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

Definition at line 1221 of file PhysDeriv.cpp.

◆ m_fac1

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

Definition at line 1222 of file PhysDeriv.cpp.

◆ m_nquad0

const int Nektar::Collections::PhysDeriv_SumFac_Tri::m_nquad0
protected

Definition at line 1216 of file PhysDeriv.cpp.

◆ m_nquad1

const int Nektar::Collections::PhysDeriv_SumFac_Tri::m_nquad1
protected

Definition at line 1217 of file PhysDeriv.cpp.

Generated on Sat Mar 25 2023 12:35:57 for Nektar++ by doxygen 1.9.1