Searched refs:EDOFs (Results 1 – 5 of 5) sorted by relevance
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
H A D | DefUtils.F90 | 1766 DO i=1,EDOFs 1812 DO i=1,EDOFs 5153 Work(i0+1:i0+EDOFs), EDOFs, SecondKindBasis) 5229 DO j=1,EDOFs 5304 EDOFs = EDOFs + Edge % BDOFs 5425 IF (PRESENT(EDOFs)) THEN 5426 IF (EDOFs > 2) THEN 5429 DOFs = EDOFs 5622 Mass(i,j) = Mass(i,j) + SUM(EdgeBasis(EDOFs+i,:) * EdgeBasis(EDOFs+j,:)) * s 5625 DO j=1,EDOFs [all …]
|
H A D | ElementUtils.F90 | 331 EDOFs = Mesh % MaxEdgeDOFs 729 IF( EDOFS > 0 ) n = n + Element % TYPE % NumberOfEdges * EDOFs 748 IF ( EDOFs > 0 ) THEN 753 Indexes(n) = EDOFs * (Element % EdgeIndexes(j)-1) + i & 766 Mesh % NumberOfNodes + EDOFs*Mesh % NumberOfEdges 776 Mesh % NumberOfNodes + EDOFs*Mesh % NumberOfEdges + & 1009 EDOFs = Mesh % MaxEdgeDOFs 1177 IF( EDOFS > 0 ) n = n + Element % TYPE % NumberOfEdges * EDOFs 1200 IF ( EDOFs > 0 ) THEN 1218 Mesh % NumberOfNodes + EDOFs*Mesh % NumberOfEdges [all …]
|
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 1330 DO i=1,EDOFs 1361 EDOFs = Element % BDOFs 1362 DO i=1,EDOFs
|
H A D | Lists.F90 | 126 INTEGER i,j,l,t,n,e,k,k1,EDOFs, FDOFs, BDOFs, ndofs, el_id local 136 EDOFs = Mesh % MaxEdgeDOFs 409 j = Mesh % NumberOfNodes + EDOFs*(Element % EdgeIndexes(i)-1) + e 443 j = Mesh % NumberOfNodes + EDOFs*Mesh % NumberOfEdges + & 463 j = Mesh % NumberOfNodes + EDOFs*Mesh % NumberOfEdges + &
|
H A D | SolverUtils.F90 | 8090 INTEGER :: nb,i,j,EDOFs, FDOFs, BDOFs,FaceDOFs, EdgeDOFs, BubbleDOFs local 8141 EDOFs = Solver % Mesh % Edges( Element % EdgeIndexes(j) ) % BDOFs 8142 DO i=1,EDOFs 8173 EDOFs = Element % BDOFs 8174 DO i=1,EDOFs
|