This function returns matrix entries for Linear polynomial for 3D stencil
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=rk), | intent(in) | :: | cxDir(3) |
pure function polyLinear_3D(cxDir) result (phi) ! -------------------------------------------------------------------------- real(kind=rk), intent(in) :: cxDir(3) real(kind=rk) :: phi(4) ! -------------------------------------------------------------------------- phi( 1) = 1.0_rk phi( 2) = cxDir(c_x) phi( 3) = cxDir(c_y) phi( 4) = cxDir(c_z) end function polyLinear_3D