Searched refs:EdgeDOFs (Results 1 – 7 of 7) sorted by relevance
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
H A D | PElementMaps.F90 | 689 FUNCTION getEdgeDOFs( Element, p ) RESULT(EdgeDOFs) 694 INTEGER :: EdgeDOFs local 698 EdgeDOFs = 0 702 EdgeDOFs = MAX(0, p-1)
|
H A D | ModelDescription.F90 | 2283 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 D | Multigrid.F90 | 1282 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 D | Lists.F90 | 129 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 D | DefUtils.F90 | 1688 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 D | MeshUtils.F90 | 2624 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 D | SolverUtils.F90 | 8090 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 + &
|