Searched refs:FaceDOFs (Results 1 – 6 of 6) sorted by relevance
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
H A D | ModelDescription.F90 | 2283 INTEGER, ALLOCATABLE :: EdgeDOFs(:),FaceDOFs(:) local 2567 ALLOCATE( FaceDOFs(NewMesh % NumberOfBulkElements)) 2569 FaceDOFs = MAX(0,MAXVAL(Def_Dofs(:,3))) 2570 CALL SetMeshEdgeFaceDofs(NewMesh,EdgeDOFs,FaceDOFs) 2571 DEALLOCATE(EdgeDOFs,FaceDOFs) 2782 ALLOCATE( FaceDOFs(NewMesh % NumberOfBulkElements)) 2784 FaceDOFs = MAX(0,MAXVAL(Def_Dofs(:,3))) 2785 CALL SetMeshEdgeFaceDofs(NewMesh,EdgeDOFs,FaceDOFs) 2786 DEALLOCATE(EdgeDOFs,FaceDOFs)
|
H A D | Lists.F90 | 129 INTEGER, ALLOCATABLE :: EdgeDOFs(:), FaceDOFs(:) local 337 ALLOCATE(FaceDOFs(Mesh % NumberOfFaces)) 338 FaceDOFs=0; 364 FaceDOFs(j)=MAX(FaceDOFs(j),getFaceDOFs(Element,Def_Dofs(6),i)) 437 ndofs = FaceDOFs(Element % FaceIndexes(i)) 540 IF ( ALLOCATED(FaceDOFs) ) DEALLOCATE(FaceDOFs)
|
H A D | Multigrid.F90 | 1282 INTEGER :: nb,i,j,EDOFs, FDOFs, BDOFs,FaceDOFs, EdgeDOFs, BubbleDOFs local 1323 FaceDOFs = Solver % Mesh % MaxFaceDOFs 1343 Indexes(NB) = FaceDOFs*(Element % FaceIndexes(j)-1) + i + & 1373 Indexes(NB) = FaceDOFs*(Parent % FaceIndexes(Element % PDefs % LocalNumber)-1) + i + & 1381 Indexes(NB) = FaceDOFs*Solver % Mesh % NumberOfFaces + &
|
H A D | DefUtils.F90 | 1688 INTEGER :: nb,i,j,k,id,EDOFs, FDOFs, BDOFs,FaceDOFs, EdgeDOFs, BubbleDOFs, Ind, ElemFamily local 1759 FaceDOFs = Solver % Mesh % MaxFaceDOFs 1779 Indexes(NB) = FaceDOFs*(Element % FaceIndexes(j)-1) + i + & 1839 Indexes(NB) = FaceDOFs*(Parent % FaceIndexes(Ind)-1) + i + & 1848 Indexes(NB) = FaceDOFs*Solver % Mesh % NumberOfFaces + &
|
H A D | MeshUtils.F90 | 2626 FaceDOFs => NULL() 2627 CALL AllocateVector( FaceDOFs, Mesh % NumberOfBulkElements, 'LoadMesh' ) 2816 FaceDOFs(i) = MAX(0,inDOFs(el_id,3)) 2901 Element % BDOFs = FaceDOFs(Element % BoundaryInfo % Left % ElementIndex) 2915 Element % BDOFs = FaceDOFs(Element % BoundaryInfo % Right % ElementIndex) 2997 CALL SetMeshEdgeFaceDOFs(Mesh,EdgeDOFs,FaceDOFs,inDOFs) 3003 IF( ASSOCIATED(FaceDOFs) ) DEALLOCATE(FaceDOFs) 3126 SUBROUTINE SetMeshEdgeFaceDOFs(Mesh,EdgeDOFs,FaceDOFs,inDOFs,NeedEdges) argument 3128 INTEGER, OPTIONAL :: EdgeDOFs(:), FaceDOFs(:) local 3198 ELSE IF (PRESENT(FaceDOFs)) THEN [all …]
|
H A D | SolverUtils.F90 | 8090 INTEGER :: nb,i,j,EDOFs, FDOFs, BDOFs,FaceDOFs, EdgeDOFs, BubbleDOFs local 8135 FaceDOFs = Solver % Mesh % MaxFaceDOFs 8155 Indexes(NB) = FaceDOFs*(Element % FaceIndexes(j)-1) + i + & 8185 Indexes(NB) = FaceDOFs*(Parent % FaceIndexes(Element % PDefs % LocalNumber)-1) + i + & 8193 Indexes(NB) = FaceDOFs*Solver % Mesh % NumberOfFaces + &
|