| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
| H A D | ModelMixedPoisson.F90 | 56 LOGICAL :: Found, InitHandles, SecondFamily local
86 SecondFamily = GetLogical(GetSolverParams(), 'Second Kind Basis', Found)
101 CALL LocalMatrix(STIFF, FORCE, Element, n, nd, nb, dim, SecondFamily)
118 CALL LocalMatrixBC(Element, Mesh, n, nd, SecondFamily, InitHandles)
132 SUBROUTINE LocalMatrix(STIFF, FORCE, Element, n, nd, nb, dim, SecondFamily)
140 LOGICAL :: SecondFamily local
252 SUBROUTINE LocalMatrixBC(Element, Mesh, n, nd, SecondFamily, InitHandles)
261 LOGICAL :: SecondFamily local
324 IF (SecondFamily) THEN
394 IF (SecondFamily) THEN
[all …]
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/BDM2D/ |
| H A D | ComputeError.F90 | 57 LOGICAL :: AllocationsDone = .FALSE., Found, SecondFamily local
92 SecondFamily = GetLogical(TargetSolverPars, 'Second Kind Basis', Found)
128 FluxNorm, SecondFamily)
141 SolNorm, FluxNorm, SecondFamily)
147 LOGICAL :: SecondFamily local
177 DivFBasis=DivFaceBasis, BDM = SecondFamily, ApplyPiolaTransform=.TRUE.)
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/RaviartThomas2D/ |
| H A D | ComputeError.F90 | 57 LOGICAL :: AllocationsDone = .FALSE., Found, SecondFamily local
92 SecondFamily = GetLogical(TargetSolverPars, 'Second Kind Basis', Found)
128 FluxNorm, SecondFamily)
141 SolNorm, FluxNorm, SecondFamily)
147 LOGICAL :: SecondFamily local
177 DivFBasis=DivFaceBasis, BDM = SecondFamily, ApplyPiolaTransform=.TRUE.)
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/BDM3D/ |
| H A D | ComputeError.F90 | 57 LOGICAL :: AllocationsDone = .FALSE., Found, SecondFamily local
92 SecondFamily = GetLogical(TargetSolverPars, 'Second Kind Basis', Found)
128 FluxNorm, SecondFamily)
141 SolNorm, FluxNorm, SecondFamily)
147 LOGICAL :: SecondFamily local
177 DivFBasis=DivFaceBasis, BDM = SecondFamily, ApplyPiolaTransform=.TRUE.)
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/RaviartThomas3D/ |
| H A D | ComputeError.F90 | 57 LOGICAL :: AllocationsDone = .FALSE., Found, SecondFamily local
92 SecondFamily = GetLogical(TargetSolverPars, 'Second Kind Basis', Found)
128 FluxNorm, SecondFamily)
141 SolNorm, FluxNorm, SecondFamily)
147 LOGICAL :: SecondFamily local
177 DivFBasis=DivFaceBasis, BDM = SecondFamily, ApplyPiolaTransform=.TRUE.)
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/SecondOrderEdgeElement2D_BCs/ |
| H A D | EdgeFEInterpolationTest.F90 | 85 LOGICAL :: stat, PiolaVersion, SecondFamily, ErrorEstimation local
98 SecondFamily = GetLogical( GetSolverParams(), 'Second Kind Basis', Found)
221 SecondFamily=SecondFamily, BasisDegree = ElementOrder)
336 SecondFamily=SecondFamily, BasisDegree=ElementOrder)
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/FaceElement2D_BCs/ |
| H A D | FaceFEInterpolationTest.F90 | 82 LOGICAL :: stat, SecondFamily, ErrorEstimation local
91 SecondFamily = GetLogical( GetSolverParams(), 'Second Kind Basis', Found)
218 DivFBasis=DivFaceBasis, BDM=SecondFamily, ApplyPiolaTransform=.TRUE.)
312 DivFBasis=DivFaceBasis, BDM=SecondFamily, ApplyPiolaTransform=.TRUE.)
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/FaceElement3D_BCs/ |
| H A D | FaceFEInterpolationTest.F90 | 82 LOGICAL :: stat, SecondFamily, ErrorEstimation local
91 SecondFamily = GetLogical( GetSolverParams(), 'Second Kind Basis', Found)
218 DivFBasis=DivFaceBasis, BDM=SecondFamily, ApplyPiolaTransform=.TRUE.)
312 DivFBasis=DivFaceBasis, BDM=SecondFamily, ApplyPiolaTransform=.TRUE.)
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | DefUtils.F90 | 5395 SecondFamily, FaceElement) argument
5408 LOGICAL, OPTIONAL :: SecondFamily !< To select the element family local
5433 IF (PRESENT(SecondFamily)) THEN
5434 SecondKindBasis = SecondFamily
5650 FDOFs, SecondFamily) argument
5662 LOGICAL, OPTIONAL, INTENT(IN) :: SecondFamily !< To select the element family local
5685 IF (PRESENT(SecondFamily)) THEN
5686 SecondKindBasis = SecondFamily
|
| H A D | ElementDescription.F90 | 5426 Basis, EdgeBasis, RotBasis, dBasisdx, SecondFamily, BasisDegree, &
5444 …LOGICAL, OPTIONAL :: SecondFamily !< If .TRUE., a Nedelec basis of the second kind is retu… local
5495 IF ( PRESENT(SecondFamily) ) Create2ndKindBasis = SecondFamily
|