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

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

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

Public Member Functions

 ~PhysDeriv_SumFac_Hex () 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) final
 Perform operation. More...
 
void operator() (int dir, const Array< OneD, const NekDouble > &input, Array< OneD, NekDouble > &output, Array< OneD, NekDouble > &wsp) final
 
virtual void CheckFactors (StdRegions::FactorMap factors, int coll_phys_offset)
 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

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
 
- 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_Hex (vector< StdRegions::StdExpansionSharedPtr > pCollExp, CoalescedGeomDataSharedPtr pGeomData, StdRegions::FactorMap factors)
 

Detailed Description

Phys deriv operator using sum-factorisation (Hex)

Definition at line 1344 of file PhysDeriv.cpp.

Constructor & Destructor Documentation

◆ ~PhysDeriv_SumFac_Hex()

Nektar::Collections::PhysDeriv_SumFac_Hex::~PhysDeriv_SumFac_Hex ( )
inlinefinal

Definition at line 1349 of file PhysDeriv.cpp.

1350  {
1351  }

◆ PhysDeriv_SumFac_Hex()

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

Definition at line 1520 of file PhysDeriv.cpp.

1524  : Operator(pCollExp, pGeomData, factors),
1525  m_nquad0 (m_stdExp->GetNumPoints(0)),
1526  m_nquad1 (m_stdExp->GetNumPoints(1)),
1527  m_nquad2 (m_stdExp->GetNumPoints(2))
1528  {
1529  LibUtilities::PointsKeyVector PtsKey = m_stdExp->GetPointsKeys();
1530 
1531  m_coordim = pCollExp[0]->GetCoordim();
1532 
1533  m_derivFac = pGeomData->GetDerivFactors(pCollExp);
1534 
1535  m_Deriv0 = &((m_stdExp->GetBasis(0)->GetD())->GetPtr())[0];
1536  m_Deriv1 = &((m_stdExp->GetBasis(1)->GetD())->GetPtr())[0];
1537  m_Deriv2 = &((m_stdExp->GetBasis(2)->GetD())->GetPtr())[0];
1538 
1539  m_wspSize = 3*m_nquad0*m_nquad1*m_nquad2*m_numElmt;
1540  }
Nektar::Collections::Operator::m_stdExp
StdRegions::StdExpansionSharedPtr m_stdExp
Definition: Operator.h:167
Nektar::Collections::Operator::Operator
Operator(std::vector< StdRegions::StdExpansionSharedPtr > pCollExp, std::shared_ptr< CoalescedGeomData > GeomData, StdRegions::FactorMap factors)
Constructor.
Definition: Operator.cpp:41
Nektar::Collections::PhysDeriv_SumFac_Hex::m_nquad2
const int m_nquad2
Definition: PhysDeriv.cpp:1514
Nektar::Collections::PhysDeriv_SumFac_Hex::m_Deriv1
NekDouble * m_Deriv1
Definition: PhysDeriv.cpp:1516
Nektar::Collections::PhysDeriv_SumFac_Hex::m_Deriv0
NekDouble * m_Deriv0
Definition: PhysDeriv.cpp:1515
Nektar::Collections::PhysDeriv_SumFac_Hex::m_derivFac
Array< TwoD, const NekDouble > m_derivFac
Definition: PhysDeriv.cpp:1510
Nektar::Collections::PhysDeriv_SumFac_Hex::m_coordim
int m_coordim
Definition: PhysDeriv.cpp:1511
Nektar::Collections::PhysDeriv_SumFac_Hex::m_Deriv2
NekDouble * m_Deriv2
Definition: PhysDeriv.cpp:1517
Nektar::Collections::PhysDeriv_SumFac_Hex::m_nquad0
const int m_nquad0
Definition: PhysDeriv.cpp:1512
Nektar::Collections::PhysDeriv_SumFac_Hex::m_nquad1
const int m_nquad1
Definition: PhysDeriv.cpp:1513
Nektar::LibUtilities::PointsKeyVector
std::vector< PointsKey > PointsKeyVector
Definition: Points.h:246

Member Function Documentation

◆ CheckFactors()

virtual void Nektar::Collections::PhysDeriv_SumFac_Hex::CheckFactors ( StdRegions::FactorMap  factors,
int  coll_phys_offset 
)
inlinevirtual

Check the validity of the supplied factor map.

Implements Nektar::Collections::Operator.

Definition at line 1502 of file PhysDeriv.cpp.

1504  {
1505  boost::ignore_unused(factors, coll_phys_offset);
1506  ASSERTL0(false, "Not valid for this operator.");
1507  }
ASSERTL0
#define ASSERTL0(condition, msg)
Definition: ErrorUtil.hpp:216

References ASSERTL0.

◆ operator()() [1/2]

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

1359  {
1360 
1361  int nPhys = m_stdExp->GetTotPoints();
1362  int ntot = m_numElmt*nPhys;
1363  Array<OneD, NekDouble> tmp0,tmp1,tmp2;
1364  Array<OneD, Array<OneD, NekDouble> > Diff(3);
1365  Array<OneD, Array<OneD, NekDouble> > out(3);
1366  out[0] = output0; out[1] = output1; out[2] = output2;
1367 
1368  for(int i = 0; i < 3; ++i)
1369  {
1370  Diff[i] = wsp + i*ntot;
1371  }
1372 
1373  Blas::Dgemm('N','N', m_nquad0,m_nquad1*m_nquad2*m_numElmt,
1374  m_nquad0,1.0, m_Deriv0,m_nquad0,&input[0],
1375  m_nquad0,0.0,&Diff[0][0],m_nquad0);
1376 
1377  for(int i = 0; i < m_numElmt; ++i)
1378  {
1379  for (int j = 0; j < m_nquad2; ++j)
1380  {
1381  Blas::Dgemm('N', 'T', m_nquad0, m_nquad1, m_nquad1,
1382  1.0, &input[i*nPhys+j*m_nquad0*m_nquad1],
1383  m_nquad0, m_Deriv1, m_nquad1, 0.0,
1384  &Diff[1][i*nPhys+j*m_nquad0*m_nquad1],
1385  m_nquad0);
1386  }
1387 
1388  Blas::Dgemm('N','T',m_nquad0*m_nquad1,m_nquad2,m_nquad2,
1389  1.0, &input[i*nPhys],m_nquad0*m_nquad1,
1390  m_Deriv2,m_nquad2, 0.0,&Diff[2][i*nPhys],
1391  m_nquad0*m_nquad1);
1392  }
1393 
1394  // calculate full derivative
1395  if(m_isDeformed)
1396  {
1397  for(int i = 0; i < m_coordim; ++i)
1398  {
1399  Vmath::Vmul(ntot,m_derivFac[i*3],1,Diff[0],1,out[i],1);
1400  for(int j = 1; j < 3; ++j)
1401  {
1402  Vmath::Vvtvp (ntot, m_derivFac[i*3+j], 1,
1403  Diff[j], 1,
1404  out[i], 1,
1405  out[i], 1);
1406  }
1407  }
1408  }
1409  else
1410  {
1411  Array<OneD, NekDouble> t;
1412  for(int e = 0; e < m_numElmt; ++e)
1413  {
1414  for(int i = 0; i < m_coordim; ++i)
1415  {
1416 
1417  Vmath::Smul(m_nqe,m_derivFac[i*3][e],
1418  Diff[0] + e*m_nqe, 1,
1419  t = out[i] + e*m_nqe,1);
1420 
1421  for(int j = 1; j < 3; ++j)
1422  {
1423  Vmath::Svtvp (m_nqe, m_derivFac[i*e+j][e],
1424  Diff[j] + e*m_nqe, 1,
1425  out[i] + e*m_nqe, 1,
1426  t = out[i] + e*m_nqe, 1);
1427  }
1428  }
1429  }
1430  }
1431  }
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:394
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:192
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:565
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:513
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:225

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

◆ operator()() [2/2]

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

1437  {
1438  int nPhys = m_stdExp->GetTotPoints();
1439  int ntot = m_numElmt*nPhys;
1440  Array<OneD, NekDouble> tmp0,tmp1,tmp2;
1441  Array<OneD, Array<OneD, NekDouble> > Diff(3);
1442 
1443  for(int i = 0; i < 3; ++i)
1444  {
1445  Diff[i] = wsp + i*ntot;
1446  }
1447 
1448  Blas::Dgemm('N','N', m_nquad0,m_nquad1*m_nquad2*m_numElmt,
1449  m_nquad0,1.0, m_Deriv0,m_nquad0,&input[0],
1450  m_nquad0,0.0,&Diff[0][0],m_nquad0);
1451 
1452  for(int i = 0; i < m_numElmt; ++i)
1453  {
1454  for (int j = 0; j < m_nquad2; ++j)
1455  {
1456  Blas::Dgemm('N', 'T', m_nquad0, m_nquad1, m_nquad1,
1457  1.0, &input[i*nPhys+j*m_nquad0*m_nquad1],
1458  m_nquad0, m_Deriv1, m_nquad1, 0.0,
1459  &Diff[1][i*nPhys+j*m_nquad0*m_nquad1],
1460  m_nquad0);
1461  }
1462 
1463  Blas::Dgemm('N','T',m_nquad0*m_nquad1,m_nquad2,m_nquad2,
1464  1.0, &input[i*nPhys],m_nquad0*m_nquad1,
1465  m_Deriv2,m_nquad2, 0.0,&Diff[2][i*nPhys],
1466  m_nquad0*m_nquad1);
1467  }
1468 
1469  // calculate full derivative
1470  if(m_isDeformed)
1471  {
1472  // calculate full derivative
1473  Vmath::Vmul(ntot,m_derivFac[dir*3],1,Diff[0],1,output,1);
1474  for(int j = 1; j < 3; ++j)
1475  {
1476  Vmath::Vvtvp (ntot, m_derivFac[dir*3+j], 1,
1477  Diff[j], 1,
1478  output, 1,
1479  output, 1);
1480  }
1481  }
1482  else
1483  {
1484  Array<OneD, NekDouble> t;
1485  for(int e = 0; e < m_numElmt; ++e)
1486  {
1487  Vmath::Smul(m_nqe,m_derivFac[dir*3][e],
1488  Diff[0] + e*m_nqe, 1,
1489  t = output + e*m_nqe,1);
1490 
1491  for(int j = 1; j < 3; ++j)
1492  {
1493  Vmath::Svtvp (m_nqe, m_derivFac[dir*3+j][e],
1494  Diff[j] + e*m_nqe, 1,
1495  output + e*m_nqe, 1,
1496  t = output + e*m_nqe, 1);
1497  }
1498  }
1499  }
1500  }

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

Member Data Documentation

◆ m_coordim

int Nektar::Collections::PhysDeriv_SumFac_Hex::m_coordim
protected

Definition at line 1511 of file PhysDeriv.cpp.

◆ m_Deriv0

NekDouble* Nektar::Collections::PhysDeriv_SumFac_Hex::m_Deriv0
protected

Definition at line 1515 of file PhysDeriv.cpp.

◆ m_Deriv1

NekDouble* Nektar::Collections::PhysDeriv_SumFac_Hex::m_Deriv1
protected

Definition at line 1516 of file PhysDeriv.cpp.

◆ m_Deriv2

NekDouble* Nektar::Collections::PhysDeriv_SumFac_Hex::m_Deriv2
protected

Definition at line 1517 of file PhysDeriv.cpp.

◆ m_derivFac

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

Definition at line 1510 of file PhysDeriv.cpp.

◆ m_nquad0

const int Nektar::Collections::PhysDeriv_SumFac_Hex::m_nquad0
protected

Definition at line 1512 of file PhysDeriv.cpp.

◆ m_nquad1

const int Nektar::Collections::PhysDeriv_SumFac_Hex::m_nquad1
protected

Definition at line 1513 of file PhysDeriv.cpp.

◆ m_nquad2

const int Nektar::Collections::PhysDeriv_SumFac_Hex::m_nquad2
protected

Definition at line 1514 of file PhysDeriv.cpp.

Generated on Wed Nov 24 2021 10:33:33 for Nektar++ by doxygen 1.9.1