Home
last modified time | relevance | path

Searched refs:FaceDOFs (Results 1 – 6 of 6) sorted by relevance

/dports/science/elmerfem/elmerfem-release-9.0/fem/src/
H A DModelDescription.F902283 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 DLists.F90129 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 DMultigrid.F901282 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 DDefUtils.F901688 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 DMeshUtils.F902626 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 DSolverUtils.F908090 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 + &