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

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

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

Public Member Functions

 ~PhysDeriv_SumFac_Tet () 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 NekDoublem_derivFac
 
int m_coordim
 
const int m_nquad0
 
const int m_nquad1
 
const int m_nquad2
 
NekDoublem_Deriv0
 
NekDoublem_Deriv1
 
NekDoublem_Deriv2
 
Array< OneD, NekDoublem_fac0
 
Array< OneD, NekDoublem_fac1
 
Array< OneD, NekDoublem_fac2
 
Array< OneD, NekDoublem_fac3
 
- 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_Tet (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 (Tet)

Definition at line 1387 of file PhysDeriv.cpp.

Constructor & Destructor Documentation

◆ ~PhysDeriv_SumFac_Tet()

Nektar::Collections::PhysDeriv_SumFac_Tet::~PhysDeriv_SumFac_Tet ( )
finaldefault

◆ PhysDeriv_SumFac_Tet()

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

Definition at line 1606 of file PhysDeriv.cpp.

1609 : Operator(pCollExp, pGeomData, factors), PhysDeriv_Helper(),
1610 m_nquad0(m_stdExp->GetNumPoints(0)),
1611 m_nquad1(m_stdExp->GetNumPoints(1)),
1612 m_nquad2(m_stdExp->GetNumPoints(2))
1613 {
1614 m_coordim = pCollExp[0]->GetCoordim();
1615
1616 m_derivFac = pGeomData->GetDerivFactors(pCollExp);
1617
1618 m_Deriv0 = &((m_stdExp->GetBasis(0)->GetD())->GetPtr())[0];
1619 m_Deriv1 = &((m_stdExp->GetBasis(1)->GetD())->GetPtr())[0];
1620 m_Deriv2 = &((m_stdExp->GetBasis(2)->GetD())->GetPtr())[0];
1621
1623
1624 const Array<OneD, const NekDouble> &z0 = m_stdExp->GetBasis(0)->GetZ();
1625 const Array<OneD, const NekDouble> &z1 = m_stdExp->GetBasis(1)->GetZ();
1626 const Array<OneD, const NekDouble> &z2 = m_stdExp->GetBasis(2)->GetZ();
1627
1628 m_fac0 = Array<OneD, NekDouble>(m_nquad0 * m_nquad1 * m_nquad2);
1629 m_fac1 = Array<OneD, NekDouble>(m_nquad0 * m_nquad1 * m_nquad2);
1630 m_fac2 = Array<OneD, NekDouble>(m_nquad0 * m_nquad1 * m_nquad2);
1631 m_fac3 = Array<OneD, NekDouble>(m_nquad0 * m_nquad1 * m_nquad2);
1632
1633 // calculate 2.0/((1-eta_1)(1-eta_2))
1634 for (int i = 0; i < m_nquad0; ++i)
1635 {
1636 for (int j = 0; j < m_nquad1; ++j)
1637 {
1638 for (int k = 0; k < m_nquad2; ++k)
1639 {
1640 m_fac0[i + j * m_nquad0 + k * m_nquad0 * m_nquad1] =
1641 4.0 / ((1 - z1[j]) * (1 - z2[k]));
1642 m_fac1[i + j * m_nquad0 + k * m_nquad0 * m_nquad1] =
1643 2.0 * (1 + z0[i]) / ((1 - z1[j]) * (1 - z2[k]));
1644 m_fac2[i + j * m_nquad0 + k * m_nquad0 * m_nquad1] =
1645 2.0 / (1 - z2[k]);
1646 m_fac3[i + j * m_nquad0 + k * m_nquad0 * m_nquad1] =
1647 (1 + z1[j]) / (1 - z2[k]);
1648 }
1649 }
1650 }
1651 }
StdRegions::StdExpansionSharedPtr m_stdExp
Definition Operator.h:230
unsigned int m_numElmt
number of elements that the operator is applied on
Definition Operator.h:232
Operator(std::vector< LocalRegions::ExpansionSharedPtr > pCollExp, std::shared_ptr< CoalescedGeomData > GeomData, StdRegions::FactorMap factors)
Constructor.
Definition Operator.cpp:66
Array< TwoD, const NekDouble > m_derivFac

References m_coordim, m_Deriv0, m_Deriv1, m_Deriv2, m_derivFac, m_fac0, m_fac1, m_fac2, m_fac3, 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_Tet::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 1395 of file PhysDeriv.cpp.

1400 {
1401 int nPhys = m_stdExp->GetTotPoints();
1402 int ntot = m_numElmt * nPhys;
1403 Array<OneD, NekDouble> tmp0, tmp1, tmp2;
1404 Array<OneD, Array<OneD, NekDouble>> Diff(3);
1405 Array<OneD, Array<OneD, NekDouble>> out(3);
1406 out[0] = output0;
1407 out[1] = output1;
1408 out[2] = output2;
1409
1410 for (int i = 0; i < 3; ++i)
1411 {
1412 Diff[i] = wsp + i * ntot;
1413 }
1414
1415 // dEta0
1417 m_nquad0, 1.0, m_Deriv0, m_nquad0, &input[0], m_nquad0, 0.0,
1418 &Diff[0][0], m_nquad0);
1419
1420 // dEta2
1421 for (int i = 0; i < m_numElmt; ++i)
1422 {
1423 Blas::Dgemm('N', 'T', m_nquad0 * m_nquad1, m_nquad2, m_nquad2, 1.0,
1424 &input[i * nPhys], m_nquad0 * m_nquad1, m_Deriv2,
1425 m_nquad2, 0.0, &Diff[2][i * nPhys],
1426 m_nquad0 * m_nquad1);
1427 }
1428
1429 for (int i = 0; i < m_numElmt; ++i)
1430 {
1431 // dEta1
1432 for (int j = 0; j < m_nquad2; ++j)
1433 {
1434 Blas::Dgemm('N', 'T', m_nquad0, m_nquad1, m_nquad1, 1.0,
1435 &input[i * nPhys + j * m_nquad0 * m_nquad1],
1436 m_nquad0, m_Deriv1, m_nquad1, 0.0,
1437 &Diff[1][i * nPhys + j * m_nquad0 * m_nquad1],
1438 m_nquad0);
1439 }
1440
1441 // dxi2 = (1 + eta_1)/(1 -eta_2)*dEta1 + dEta2
1442 Vmath::Vvtvp(nPhys, m_fac3.data(), 1, Diff[1].data() + i * nPhys, 1,
1443 Diff[2].data() + i * nPhys, 1,
1444 Diff[2].data() + i * nPhys, 1);
1445
1446 // dxi1 = 2/(1 - eta_2) dEta1
1447 Vmath::Vmul(nPhys, m_fac2.data(), 1, Diff[1].data() + i * nPhys, 1,
1448 Diff[1].data() + i * nPhys, 1);
1449
1450 // dxi1 = 2.0(1+eta_0)/((1-eta_1)(1-eta_2)) dEta0 + dxi1
1451 Vmath::Vvtvp(nPhys, m_fac1.data(), 1, Diff[0].data() + i * nPhys, 1,
1452 Diff[1].data() + i * nPhys, 1,
1453 Diff[1].data() + i * nPhys, 1);
1454
1455 // dxi2 = 2.0(1+eta_0)/((1-eta_1)(1-eta_2)) dEta0 + dxi2
1456 Vmath::Vvtvp(nPhys, m_fac1.data(), 1, Diff[0].data() + i * nPhys, 1,
1457 Diff[2].data() + i * nPhys, 1,
1458 Diff[2].data() + i * nPhys, 1);
1459
1460 // dxi0 = 4.0/((1-eta_1)(1-eta_2)) dEta0
1461 Vmath::Vmul(nPhys, m_fac0.data(), 1, Diff[0].data() + i * nPhys, 1,
1462 Diff[0].data() + i * nPhys, 1);
1463 }
1464
1465 // calculate full derivative
1466 if (m_isDeformed)
1467 {
1468 for (int i = 0; i < m_coordim; ++i)
1469 {
1470 Vmath::Vmul(ntot, m_derivFac[i * 3], 1, Diff[0], 1, out[i], 1);
1471 for (int j = 1; j < 3; ++j)
1472 {
1473 Vmath::Vvtvp(ntot, m_derivFac[i * 3 + j], 1, Diff[j], 1,
1474 out[i], 1, out[i], 1);
1475 }
1476 }
1477 }
1478 else
1479 {
1480 Array<OneD, NekDouble> t;
1481 for (int e = 0; e < m_numElmt; ++e)
1482 {
1483 for (int i = 0; i < m_coordim; ++i)
1484 {
1485 Vmath::Smul(m_nqe, m_derivFac[i * 3][e],
1486 Diff[0] + e * m_nqe, 1, t = out[i] + e * m_nqe,
1487 1);
1488 for (int j = 1; j < 3; ++j)
1489 {
1490 Vmath::Svtvp(m_nqe, m_derivFac[i * 3 + j][e],
1491 Diff[j] + e * m_nqe, 1, out[i] + e * m_nqe,
1492 1, t = out[i] + e * m_nqe, 1);
1493 }
1494 }
1495 }
1496 }
1497 }
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
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
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
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
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, m_fac3, 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_Tet::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 1499 of file PhysDeriv.cpp.

1502 {
1503 int nPhys = m_stdExp->GetTotPoints();
1504 int ntot = m_numElmt * nPhys;
1505 Array<OneD, NekDouble> tmp0, tmp1, tmp2;
1506 Array<OneD, Array<OneD, NekDouble>> Diff(3);
1507
1508 for (int i = 0; i < 3; ++i)
1509 {
1510 Diff[i] = wsp + i * ntot;
1511 }
1512
1513 // dEta0
1515 m_nquad0, 1.0, m_Deriv0, m_nquad0, &input[0], m_nquad0, 0.0,
1516 &Diff[0][0], m_nquad0);
1517
1518 // dEta2
1519 for (int i = 0; i < m_numElmt; ++i)
1520 {
1521 Blas::Dgemm('N', 'T', m_nquad0 * m_nquad1, m_nquad2, m_nquad2, 1.0,
1522 &input[i * nPhys], m_nquad0 * m_nquad1, m_Deriv2,
1523 m_nquad2, 0.0, &Diff[2][i * nPhys],
1524 m_nquad0 * m_nquad1);
1525 }
1526
1527 for (int i = 0; i < m_numElmt; ++i)
1528 {
1529 // dEta1
1530 for (int j = 0; j < m_nquad2; ++j)
1531 {
1532 Blas::Dgemm('N', 'T', m_nquad0, m_nquad1, m_nquad1, 1.0,
1533 &input[i * nPhys + j * m_nquad0 * m_nquad1],
1534 m_nquad0, m_Deriv1, m_nquad1, 0.0,
1535 &Diff[1][i * nPhys + j * m_nquad0 * m_nquad1],
1536 m_nquad0);
1537 }
1538
1539 // dxi2 = (1 + eta_1)/(1 -eta_2)*dEta1 + dEta2
1540 Vmath::Vvtvp(nPhys, m_fac3.data(), 1, Diff[1].data() + i * nPhys, 1,
1541 Diff[2].data() + i * nPhys, 1,
1542 Diff[2].data() + i * nPhys, 1);
1543
1544 // dxi1 = 2/(1 - eta_2) dEta1
1545 Vmath::Vmul(nPhys, m_fac2.data(), 1, Diff[1].data() + i * nPhys, 1,
1546 Diff[1].data() + i * nPhys, 1);
1547
1548 // dxi1 = 2.0(1+eta_0)/((1-eta_1)(1-eta_2)) dEta0 + dxi1
1549 Vmath::Vvtvp(nPhys, m_fac1.data(), 1, Diff[0].data() + i * nPhys, 1,
1550 Diff[1].data() + i * nPhys, 1,
1551 Diff[1].data() + i * nPhys, 1);
1552
1553 // dxi2 = 2.0(1+eta_0)/((1-eta_1)(1-eta_2)) dEta0 + dxi2
1554 Vmath::Vvtvp(nPhys, m_fac1.data(), 1, Diff[0].data() + i * nPhys, 1,
1555 Diff[2].data() + i * nPhys, 1,
1556 Diff[2].data() + i * nPhys, 1);
1557
1558 // dxi0 = 4.0/((1-eta_1)(1-eta_2)) dEta0
1559 Vmath::Vmul(nPhys, m_fac0.data(), 1, Diff[0].data() + i * nPhys, 1,
1560 Diff[0].data() + i * nPhys, 1);
1561 }
1562
1563 // calculate full derivative
1564 if (m_isDeformed)
1565 {
1566 // calculate full derivative
1567 Vmath::Vmul(ntot, m_derivFac[dir * 3], 1, Diff[0], 1, output, 1);
1568 for (int j = 1; j < 3; ++j)
1569 {
1570 Vmath::Vvtvp(ntot, m_derivFac[dir * 3 + j], 1, Diff[j], 1,
1571 output, 1, output, 1);
1572 }
1573 }
1574 else
1575 {
1576 Array<OneD, NekDouble> t;
1577 for (int e = 0; e < m_numElmt; ++e)
1578 {
1579 Vmath::Smul(m_nqe, m_derivFac[dir * 3][e], Diff[0] + e * m_nqe,
1580 1, t = output + e * m_nqe, 1);
1581 for (int j = 1; j < 3; ++j)
1582 {
1583 Vmath::Svtvp(m_nqe, m_derivFac[dir * 3 + j][e],
1584 Diff[j] + e * m_nqe, 1, output + e * m_nqe, 1,
1585 t = output + e * m_nqe, 1);
1586 }
1587 }
1588 }
1589 }

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

Definition at line 1593 of file PhysDeriv.cpp.

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

◆ m_Deriv0

NekDouble* Nektar::Collections::PhysDeriv_SumFac_Tet::m_Deriv0
protected

Definition at line 1597 of file PhysDeriv.cpp.

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

◆ m_Deriv1

NekDouble* Nektar::Collections::PhysDeriv_SumFac_Tet::m_Deriv1
protected

Definition at line 1598 of file PhysDeriv.cpp.

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

◆ m_Deriv2

NekDouble* Nektar::Collections::PhysDeriv_SumFac_Tet::m_Deriv2
protected

Definition at line 1599 of file PhysDeriv.cpp.

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

◆ m_derivFac

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

Definition at line 1592 of file PhysDeriv.cpp.

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

◆ m_fac0

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

Definition at line 1600 of file PhysDeriv.cpp.

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

◆ m_fac1

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

Definition at line 1601 of file PhysDeriv.cpp.

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

◆ m_fac2

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

Definition at line 1602 of file PhysDeriv.cpp.

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

◆ m_fac3

Array<OneD, NekDouble> Nektar::Collections::PhysDeriv_SumFac_Tet::m_fac3
protected

Definition at line 1603 of file PhysDeriv.cpp.

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

◆ m_nquad0

const int Nektar::Collections::PhysDeriv_SumFac_Tet::m_nquad0
protected

Definition at line 1594 of file PhysDeriv.cpp.

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

◆ m_nquad1

const int Nektar::Collections::PhysDeriv_SumFac_Tet::m_nquad1
protected

Definition at line 1595 of file PhysDeriv.cpp.

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

◆ m_nquad2

const int Nektar::Collections::PhysDeriv_SumFac_Tet::m_nquad2
protected

Definition at line 1596 of file PhysDeriv.cpp.

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