Home
last modified time | relevance | path

Searched refs:EDOFs (Results 1 – 5 of 5) sorted by relevance

/dports/science/elmerfem/elmerfem-release-9.0/fem/src/
H A DDefUtils.F901766 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 DElementUtils.F90331 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 DMultigrid.F901282 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 DLists.F90126 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 DSolverUtils.F908090 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