| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
| H A D | PoissonDG.F90 | 55 ParentElement, LeftParent, RightParent local
134 RightParent => elm % BoundaryInfo % Right
135 IF ( .NOT. ASSOCIATED(RightParent) ) CYCLE
139 nr = GetElementNOFDOFs(RightParent)
191 NodalParentU(i) = RightParent % Type % NodeU(j)
192 NodalParentV(i) = RightParent % Type % NodeV(j)
193 NodalParentW(i) = RightParent % Type % NodeW(j)
235 CALL GetElementNodes( RightParentNodes, RightParent )
279 stat = ElementInfo( RightParent, RightParentNodes, &
337 CALL GetElementNodes( RightParentNodes, RightParent )
[all …]
|
| H A D | AdvectionReaction.F90 | 59 ParentElement, LeftParent, RightParent local
245 RightParent => Face % BoundaryInfo % Right
246 IF ( ASSOCIATED(RightParent) .AND. ASSOCIATED(LeftParent) ) THEN
249 n2 = GetElementNOFNodes( RightParent )
259 CALL LocalJumps( STIFF,Face,n,LeftParent,n1,RightParent,n2,Velo )
525 SUBROUTINE LocalJumps( STIFF,Face,n,LeftParent,n1,RightParent,n2,Velo )
530 TYPE(Element_t), POINTER :: Face, LeftParent, RightParent local
550 CALL GetElementNodes( RightParentNodes, RightParent )
585 CALL FindParentUVW( Face,n,RightParent,n2,U,V,W,FaceBasis )
586 stat = ElementInfo( RightParent, RightParentNodes, U, V, W, detJ, &
|
| H A D | HeatSolveVec.F90 | 1213 SUBROUTINE LocalJumps( Element,n,LeftParent,nl,RightParent,nr)
1216 TYPE(Element_t), POINTER :: Element, LeftParent, RightParent local
1254 CALL GetElementNodes( RightParentNodes, RightParent )
1294 CALL GetParentUVW( Element, n, RightParent, nr, U, V, W, Basis )
1296 stat = ElementInfo( RightParent, RightParentNodes, &
|
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
| H A D | FabricSolve.F90 | 79 ParentElement, LeftParent, RightParent, Edge local
407 RightParent => Edge % BoundaryInfo % Right
408 IF ( ASSOCIATED(RightParent) .AND. ASSOCIATED(LeftParent) ) THEN
411 n2 = GetElementNOFNodes( RightParent )
445 RightParent => Edge % BoundaryInfo % Right
446 IF ( ASSOCIATED(RightParent) .AND. ASSOCIATED(LeftParent) ) THEN
449 n2 = GetElementNOFNodes( RightParent )
1141 TYPE(Element_t), POINTER :: Edge, LeftParent, RightParent local
1162 CALL GetElementNodes( RightParentNodes, RightParent )
1197 CALL FindParentUVW( Edge,n,RightParent,n2,U,V,W,EdgeBasis )
[all …]
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/MagnetoDynamics/ |
| H A D | CalcFields.F90 | 2448 TYPE(Element_t), POINTER :: LeftParent, RightParent, BElement local
2507 IF(HasRight) RightParent => BElement % BoundaryInfo % Right
2510 if(HasRight) n_rp = GetElementNOFNodes(RightParent)
2514 IF(HasRight) CALL GetElementNodes(RPNodes, RightParent)
2536 IF(RightParent % NodeIndexes(l) == BElement % NodeIndexes(k)) RightMap(k) = l
2641 … IF(HasRight) CALL LocalCopy(EL_NF, 3, n_rp, RightFORCE, 0, UElement=RightParent, uAdditive=.TRUE.)
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | MeshPartition.F90 | 2657 INTEGER, ALLOCATABLE :: GlobalToLocalElem(:), LeftParent(:), RightParent(:) local
2682 ALLOCATE( RightParent(NewNBulk+1:NewNBulk+NewNBdry ) )
2683 RightParent = 0
2734 RightParent(t) = Element0 % BoundaryInfo % Right % GElementIndex
2736 RightParent(t) = Element0 % BoundaryInfo % Right % ElementIndex
2897 RightParent(t) = PPack % idata(icount+5)
2969 j = RightParent(i)
2983 DEALLOCATE( RightParent )
|