/dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
H A D | PElementMaps.F90 | 1085 IF (Element % BDOFs > 0) THEN 1090 nb = MAX( GetBubbleDOFs( Element, bubbleP ), Element % BDOFs ) 1094 nb = MAX( GetBubbleDOFs( Element, bubbleP ), Element % BDOFs ) 1099 nb = MAX( GetBubbleDOFs(Element, bubbleP ), Element % BDOFs ) 1104 nb = MAX( GetBubbleDOFs(Element, bubbleP ), Element % BDOFs ) 1109 nb = MAX( GetBubbleDOFs( Element, bubbleP ), Element % BDOFs ) 1114 nb = MAX( GetBubbleDOFs(Element, bubbleP ), Element % BDOFs ) 1129 IF ( .NOT.(Element % PDefs % P < 4 .AND. Element % BDOFs>0) ) THEN 1187 IF (Edge % BDOFs <= 0) CYCLE 1216 IF (Face % BDOFs <= 0) CYCLE [all …]
|
H A D | ElementUtils.F90 | 330 BDOFs = Mesh % MaxBDOFs 731 IF ( GB ) n = n + Element % BDOFs 773 DO i=1,Element % BDOFs 1008 BDOFs = Mesh % MaxBDOFs 1179 IF ( GB ) n = n + Element % BDOFs 1225 DO i=1,Element % BDOFs 1544 minFaceDOFs, maxFaceDOFs, BDOFs, cols, istat local 1588 BDOFs = 0 1598 minEdgeDOFs = MIN( minEdgeDOFs, Mesh % Edges(i) % BDOFs ) 1610 BDOFs = MAX( BDOFs, Mesh % Elements(i) % BDOFs ) [all …]
|
H A D | ElementDescription.F90 | 618 Elm % BDOFs = 0 2115 DO k=1,Edge % BDOFs 2148 DO k=1,Edge % BDOFs 2252 DO k=1,Edge % BDOFs 2334 DO k=1,Edge % BDOFs 2421 DO k=1,Edge % BDOFs 2640 DO k=1,Edge % BDOFs 2710 DO k=1,Edge % BDOFs 2878 DO k=1,Edge % BDOFs 3273 Bubble % BDOFs = 0 [all …]
|
H A D | DefUtils.F90 | 1811 EDOFs = Element % BDOFs 1836 FDOFs = Element % BDOFs 1846 DO i=1,Element % BDOFs 1898 CurrElement % BDOFs = n 1900 n = CurrElement % BDOFs 1903 n = CurrElement % BDOFs 6253 DO i=1,Element % BDOFs 6277 DO j=1,Edge % BDOFs 6291 DO i=1,Face % BDOFs 6381 DO j=1,Edge % BDOFs [all …]
|
H A D | MeshUtils.F90 | 70 Element % BDOFs = 0 2902 Element % BDOFs = MAX(Element % BDOFs, MAX(0,InDOFs(el_id+6,5))) 2916 Element % BDOFs = MAX(Element % BDOFs, MAX(0,InDOFs(el_id+6,5))) 3058 Element % BDOFs, & 3156 Edge % BDOFs = MAX(Edge % BDOFs, Edge % PDefs % P - 1) 3170 Edge % BDOFs = MAX(EdgeDOFs(i), Edge % BDOFs) 3172 Edge % BDOFs = Max(1, Edge % BDOFs) 3200 Face % BDOFs = MAX(FaceDOFs(i), Face % BDOFs) 3201 IF ( PRESENT(inDOFs) ) Face % BDOFs = MAX(Face % BDOFs, InDOFs(el_id+6,5)) 3274 Element % BDOFs, & [all …]
|
H A D | DiffuseConvectiveAnisotropic.F90 | 193 PBubbles = isActivePElement(Element) .AND. Element % BDOFs > 0 195 NBasis = n + Element % BDOFs
|
H A D | ParallelUtils.F90 | 210 DO j=1,Element % BDOFs 246 DO j=1,Element % BDOFs 278 Solver % Def_Dofs(j,Element % Bodyid,6)>1) bdofs = Element % BDOFs
|
H A D | Adaptive.F90 | 1558 IF ( RefElement % BDOFs > 0 ) THEN 1559 ALLOCATE( RefElement % BubbleIndexes(RefElement % BDOFs) ) 1560 DO j=1,RefElement % BDOFs
|
H A D | SParIterComm.F90 | 1211 buf(2*mm) = Mesh % Edges(l) % BDOFs 1247 Mesh % Edges(k) % BDOFs=MAX(Mesh % Edges(k) % BDOFs,bd) 1753 buf(2*mm) = Mesh % Faces(l) % BDOFs 1787 Mesh % Faces(k) % BDOFs = MAX(Mesh % Faces(k) % BDOFs,bd)
|
H A D | NavierStokesCylindrical.F90 | 197 PBubbles = isActivePelement(Element) .AND. Element % BDOFs > 0 199 NBasis = n + Element % BDOFs
|
H A D | Types.F90 | 665 INTEGER :: ElementIndex=-1, GElementIndex=-1, PartIndex=-1, NDOFs=0, BDOFs=0, DGDOFs=0 component
|
H A D | Multigrid.F90 | 1282 INTEGER :: nb,i,j,EDOFs, FDOFs, BDOFs,FaceDOFs, EdgeDOFs, BubbleDOFs local 1329 EDOFs = Solver % Mesh % Edges( Element % EdgeIndexes(j) ) % BDOFs 1340 FDOFs = Solver % Mesh % Faces( Element % FaceIndexes(j) ) % BDOFs 1361 EDOFs = Element % BDOFs 1370 FDOFs = Element % BDOFs 1379 DO i=1,Element % BDOFs 5994 INTEGER :: i, j, n, SolverAddr, BDOFs, execi, timestep, maxdim local
|
H A D | MainUtils.F90 | 1418 MaxEDOFs = MAX( MaxEDOFs, CurrentElement % BDOFs ) 1424 MaxFDOFs = MAX( MaxFDOFs, CurrentElement % BDOFs ) 1430 MaxBDOFs = MAX( MaxBDOFs, CurrentElement % BDOFs ) 4983 INTEGER :: i, j, k, l, col, row, n, BDOFs, maxdim, dsize, size0 local 5197 INTEGER :: i, j, k, n, BDOFs, timestep, timei, timei0, PassiveBcId, Execi local
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/LinearFormsAssembly/ |
H A D | LinearFormsAssembly.F90 | 630 Mesh % Edges(edge) % BDOFs = GetBubbleDofs(Mesh % Edges(edge), P) 631 Mesh % MinEdgeDofs = MIN(Mesh % MinEdgeDofs, Mesh % Edges(edge) % BDOFs) 632 Mesh % MaxEdgeDofs = MAX(Mesh % MaxEdgeDofs, Mesh % Edges(edge) % BDOFs) 680 Mesh % Faces(face) % BDOFs = GetBubbleDofs(Mesh % Faces(face), P) 681 Mesh % MinFaceDofs = MAX(Mesh % MinFaceDofs, Mesh % Faces(face) % BDOFs) 682 Mesh % MaxFaceDofs = MAX(Mesh % MaxFaceDofs, Mesh % Faces(face) % BDOFs) 698 PElement % BDOFs 707 Element % BDOFs = 0 730 ClonedElement % BDOFs = Element % BDOFs
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/StokesPFEM/ |
H A D | Stokes.f90 | 53 INTEGER :: i,j,k,n, nb, nd, t, istat, dim, BDOFs=1,Active local 70 n = (dim+1)*(Mesh % MaxElementDOFs+BDOFs) ! just big enough for elemental arrays
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/Q1Q0/ |
H A D | Q1Q0.f90 | 37 INTEGER :: i,j,k,l,n, nb, nd, t, istat, dim, BDOFs=1,Active, dofs local 57 n = (dim+1)*(Mesh % MaxElementDOFs+BDOFs) ! just big enough for elemental arrays
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/StokesProj/ |
H A D | Pressure.f90 | 179 BDOFs(i) = i+n
|
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
H A D | FrontDisplacement.F90 | 509 DO p=MAX(n+1,nd-Element % BDOFs+1),nd 603 DO p=MAX(n+1,nd-Element % BDOFs+1),nd
|
H A D | TemperateIce.F90 | 751 IF(isActivePElement(Element).AND.Element % BDOFs>0) THEN 752 CALL CondensateP( N, Element % BDOFs, STIFF, FORCE, TimeForce )
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
H A D | MeshSolve.F90 | 533 DO p=MAX(n+1,nd-Element % BDOFs+1),nd 626 DO p=MAX(n+1,nd-Element % BDOFs+1),nd
|
H A D | NonphysicalMeshSolve.F90 | 487 DO p=nd-Element % BDOFs+1,nd 635 DO p=nd-Element % BDOFs+1,nd
|
H A D | ModelMixedPoisson.F90 | 312 FDOFs = Face % BDOFs
|
H A D | CompressibleNS.F90 | 72 MaxIterations, NumberOfNormalTractionNodes, BDOFs=0, NormalDir local
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/HelmholtzEdge/ |
H A D | Hrot.f90 | 428 DO k=1,Edge % BDOFs 476 DO k=1,Face % BDOFs
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/HelmholtzFace/ |
H A D | Helmholtz.f90 | 451 DO k=1,Edge % BDOFs 499 DO k=1,Face % BDOFs
|