/usr/include/palabos/finiteDifference/fdStencils2D.h is in libplb-dev 1.5~r1+repack1-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 | /* This file is part of the Palabos library.
*
* Copyright (C) 2011-2015 FlowKit Sarl
* Route d'Oron 2
* 1010 Lausanne, Switzerland
* E-mail contact: contact@flowkit.com
*
* The most recent release of Palabos can be downloaded at
* <http://www.palabos.org/>
*
* The library Palabos is free software: you can redistribute it and/or
* modify it under the terms of the GNU Affero General Public License as
* published by the Free Software Foundation, either version 3 of the
* License, or (at your option) any later version.
*
* The library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Affero General Public License for more details.
*
* You should have received a copy of the GNU Affero General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#ifndef FD_STENCILS_2D_H
#define FD_STENCILS_2D_H
#include "core/globalDefs.h"
#include "atomicBlock/dataField2D.h"
#include "atomicBlock/dataField3D.h"
#include "atomicBlock/blockLattice2D.h"
#include "atomicBlock/blockLattice3D.h"
namespace plb {
namespace fd {
/// Fourth order central 2d-interpolation (a_p1p1=a(x+1/2,y+1/2), a_m2m2=a(x-3/2,y-3/2)), returns a(x)
template<typename T>
inline T centralSixteenPointsInterp(T a_m2m2, T a_m2m1, T a_m2p1, T a_m2p2,
T a_m1m2, T a_m1m1, T a_m1p1, T a_m1p2,
T a_p1m2, T a_p1m1, T a_p1p1, T a_p1p2,
T a_p2m2, T a_p2m1, T a_p2p1, T a_p2p2)
{
// o --- o --- o --- o // a_m2p2 a_m1p2 a_p1p2 a_p2p2
// o --- o --- o --- o // a_m2p1 a_m1p1 a_p1p1 a_p2p1
// ---------x--------- //
// o --- o --- o --- o // a_m2m1 a_m1m1 a_p1m1 a_p2m1
// o --- o --- o --- o // a_m2m2 a_m1m2 a_p1m2 a_p2m2
T distTwo = -(T)9/(T)256*(a_m2m1 + a_m2p1 + a_m1m2 + a_m1p2 + a_p1m2 + a_p1p2 + a_p2m1 + a_p2p1);
T distThree = (T)1/(T)256*(a_m2m2 + a_m2p2 + a_p2p2 + a_p2m2);
T distOne = (T)81/(T)256*(a_p1p1 + a_m1p1 + a_m1m1 + a_p1m1);
return distTwo + distThree + distOne;
}
/// Third order central 2d-interpolation (a_p1p1=a(x+1/2,y+1/2), a_m2p1=a(x-3/2,y+1/2)), returns a(x)
template<typename T>
inline T asymTwelvePointsInterp(T a_m2m1, T a_m2p1, T a_m2p2,
T a_m1m1, T a_m1p1, T a_m1p2,
T a_p1m1, T a_p1p1, T a_p1p2,
T a_p2m1, T a_p2p1, T a_p2p2)
{
// o --- o --- o --- o // a_m2p2 a_m1p2 a_p1p2 a_p2p2
// o --- o --- o --- o // a_m2p1 a_m1p1 a_p1p1 a_p2p1
// ---------x--------- //
// o --- o --- o --- o // a_m2m1 a_m1m1 a_p1m1 a_p2m1
return (T)1/(T)128 * (a_m2p2+a_p2p2)
-(T)3/(T)128 * (a_m2m1+a_p2m1)
-(T)3/(T)64 * (a_m2p1+a_p2p1)
-(T)9/(T)128 * (a_m1p2+a_p1p2)
+(T)27/(T)128 * (a_m1m1+a_p1m1)
+(T)27/(T)64 * (a_m1p1+a_p1p1);
}
/// Third order central 2d-interpolation (a_p1p1=a(x+1/2,y+1/2), a_m2p1=a(x-3/2,y+1/2)), returns a(x)
template<typename T>
inline T asymNincePointsInterp(T a_m1m1, T a_m1p1, T a_m1p2,
T a_p1m1, T a_p1p1, T a_p1p2,
T a_p2m1, T a_p2p1, T a_p2p2)
{
// o --- o --- o // a_m1p2 a_p1p2 a_p2p2
// o --- o --- o // a_m1p1 a_p1p1 a_p2p1
// ---x--------- //
// o --- o --- o // a_m1m1 a_p1m1 a_p2m1
return (T)9/(T)64*a_m1m1
+(T)9/(T)32*(a_m1p1+a_p1m1)
-(T)3/(T)64*(a_m1p2+a_p2m1)
+(T)9/(T)16*a_p1p1
-(T)3/(T)32*(a_p1p2+a_p2p1)
+(T)1/(T)64*a_p2p2;
}
} // namespace fd
} // namespace plb
#endif // FD_STENCILS_2D_H
|