Home
last modified time | relevance | path

Searched refs:EdgeDOFs (Results 1 – 7 of 7) sorted by relevance

/dports/science/elmerfem/elmerfem-release-9.0/fem/src/
H A DPElementMaps.F90689 FUNCTION getEdgeDOFs( Element, p ) RESULT(EdgeDOFs)
694 INTEGER :: EdgeDOFs local
698 EdgeDOFs = 0
702 EdgeDOFs = MAX(0, p-1)
H A DModelDescription.F902283 INTEGER, ALLOCATABLE :: EdgeDOFs(:),FaceDOFs(:) local
2566 ALLOCATE( EdgeDOFs(NewMesh % NumberOfBulkElements))
2568 EdgeDOFs = MAX(0,MAXVAL(Def_Dofs(:,2)))
2570 CALL SetMeshEdgeFaceDofs(NewMesh,EdgeDOFs,FaceDOFs)
2571 DEALLOCATE(EdgeDOFs,FaceDOFs)
2781 ALLOCATE( EdgeDOFs(NewMesh % NumberOfBulkElements))
2783 EdgeDOFs = MAX(0,MAXVAL(Def_Dofs(:,2)))
2785 CALL SetMeshEdgeFaceDofs(NewMesh,EdgeDOFs,FaceDOFs)
2786 DEALLOCATE(EdgeDOFs,FaceDOFs)
H A DMultigrid.F901282 INTEGER :: nb,i,j,EDOFs, FDOFs, BDOFs,FaceDOFs, EdgeDOFs, BubbleDOFs local
1324 EdgeDOFs = Solver % Mesh % MaxEdgeDOFs
1332 Indexes(NB) = EdgeDOFs*(Element % EdgeIndexes(j)-1) + &
1344 Solver % Mesh % NumberOfNodes + EdgeDOFs*Solver % Mesh % NumberOfEdges
1364 Indexes(NB) = EdgeDOFs*(Parent % EdgeIndexes(Element % PDefs % LocalNumber)-1) + &
1374 Solver % Mesh % NumberOfNodes + EdgeDOFs*Solver % Mesh % NumberOfEdges
1382 Solver % Mesh % NumberOfNodes + EdgeDOFs*Solver % Mesh % NumberOfEdges + &
H A DLists.F90129 INTEGER, ALLOCATABLE :: EdgeDOFs(:), FaceDOFs(:) local
332 ALLOCATE(EdgeDOFs(Mesh % NumberOfEdges))
333 EdgeDOFs=0;
357 EdgeDOFs(j)=MAX(EdgeDOFs(j),getEdgeDOFs(Element,Def_Dofs(6)))
403 ndofs = EdgeDOFs(Element % EdgeIndexes(i))
539 IF ( ALLOCATED(EdgeDOFs) ) DEALLOCATE(EdgeDOFs)
H A DDefUtils.F901688 INTEGER :: nb,i,j,k,id,EDOFs, FDOFs, BDOFs,FaceDOFs, EdgeDOFs, BubbleDOFs, Ind, ElemFamily local
1760 EdgeDOFs = Solver % Mesh % MaxEdgeDOFs
1768 Indexes(NB) = EdgeDOFs*(Element % EdgeIndexes(j)-1) + &
1780 Solver % Mesh % NumberOfNodes + EdgeDOFs*Solver % Mesh % NumberOfEdges
1814 Indexes(NB) = EdgeDOFs*(Parent % EdgeIndexes(Ind)-1) + &
1840 Solver % Mesh % NumberOfNodes + EdgeDOFs*Solver % Mesh % NumberOfEdges
1849 Solver % Mesh % NumberOfNodes + EdgeDOFs*Solver % Mesh % NumberOfEdges + &
H A DMeshUtils.F902624 EdgeDOFs => NULL()
2625 CALL AllocateVector( EdgeDOFs, Mesh % NumberOfBulkElements, 'LoadMesh' )
2815 EdgeDOFs(i) = MAX(0,inDOFs(el_id,2))
2899 EdgeDOFs(Element % BoundaryInfo % Left % ElementIndex)
2913 EdgeDOFs(Element % BoundaryInfo % Right % ElementIndex)
2997 CALL SetMeshEdgeFaceDOFs(Mesh,EdgeDOFs,FaceDOFs,inDOFs)
3002 IF( ASSOCIATED(EdgeDOFs) ) DEALLOCATE(EdgeDOFs )
3126 SUBROUTINE SetMeshEdgeFaceDOFs(Mesh,EdgeDOFs,FaceDOFs,inDOFs,NeedEdges) argument
3128 INTEGER, OPTIONAL :: EdgeDOFs(:), FaceDOFs(:) local
3169 ELSE IF(PRESENT(EdgeDOFs)) THEN
[all …]
H A DSolverUtils.F908090 INTEGER :: nb,i,j,EDOFs, FDOFs, BDOFs,FaceDOFs, EdgeDOFs, BubbleDOFs local
8136 EdgeDOFs = Solver % Mesh % MaxEdgeDOFs
8144 Indexes(NB) = EdgeDOFs*(Element % EdgeIndexes(j)-1) + &
8156 Solver % Mesh % NumberOfNodes + EdgeDOFs*Solver % Mesh % NumberOfEdges
8176 Indexes(NB) = EdgeDOFs*(Parent % EdgeIndexes(Element % PDefs % LocalNumber)-1) + &
8186 Solver % Mesh % NumberOfNodes + EdgeDOFs*Solver % Mesh % NumberOfEdges
8194 Solver % Mesh % NumberOfNodes + EdgeDOFs*Solver % Mesh % NumberOfEdges + &