14 if (x>0 && x<nx && y>0 && y<ny && z>0 && z<
nz)
26 cp[0]=a[1]*b[2]-a[2]*b[1];
27 cp[1]=a[2]*b[0]-a[0]*b[2];
28 cp[2]=a[0]*b[1]-a[1]*b[0];
39 double ba[3],p1a[3],p2a[3];
50 if ((cp1[0]*cp2[0]+cp1[1]*cp2[1]+cp1[2]*cp2[2])>=0) dec=
true;
73 for (i = 0; i <
nx; i++) {
74 for (j = 0; j <
ny; j++) {
75 for (k = 0; k <
nz; k++) {
76 if (amat[i][j][k]==0) por++;
real(dp) porosity
foam porosity
real(dp), dimension(:), allocatable y
state variables
Defines global variables, macros, templates and namespace.
bool SameSide(double p1[], double p2[], double a[], double b[])
True if two points are in the same half-plane defined by other two points.
double * CrossProduct(double a[], double b[])
Cross product of two points in 3D.
bool in_domain(double x, double y, double z)
True if the point is in the domain, False otherwise.
bool PointInTriangle(double p[], double a[], double b[], double c[])
True if point lies in the triangle.
real(dp) cp
heat capacity of the reaction mixture
namespace with global variables
integer p
number of internal nodes