| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
| H A D | ModelMixedPoisson.F90 | 275 INTEGER :: j, k, l, t, np, p, ActiveFaceId, Family, matches, FDOFs local
312 FDOFs = Face % BDOFs
313 IF (FDOFs < 1) RETURN
339 IF (FDOFs /= 3) CALL Fatal('ModelMixedPoisson', '3-DOF faces expected')
420 DO j=1,FDOFs
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | DefUtils.F90 | 1777 DO i=1,FDOFs
1837 DO i=1,FDOFs
5275 DefaultDOFs(1:FDOFs) = Work(1:FDOFs)
5588 REAL(KIND=dp) :: Mass(FDOFs,FDOFs), Force(FDOFs)
5620 DO i=1,FDOFs
5621 DO j=1,FDOFs
5631 CALL LUSolve(FDOFs, Mass(1:FDOFs,1:FDOFs), Force(1:FDOFs))
5632 DOFValues(EDOFs+1:EDOFs+FDOFs) = Force(1:FDOFs)
5650 FDOFs, SecondFamily) argument
5678 IF (FDOFs > 3) THEN
[all …]
|
| H A D | ElementUtils.F90 | 302 INTEGER :: t,i,j,k,l,m,k1,k2,n,p,q,e1,e2,f1,f2, EDOFs, FDOFs, BDOFs, This, istat local
332 FDOFs = Mesh % MaxFaceDOFs
730 IF( FDOFS > 0 ) n = n + Element % TYPE % NumberOfFaces * FDOFs
765 Indexes(n) = FDOFs*(Element % FaceIndexes(j)-1) + i + &
775 Indexes(n) = FDOFs*Mesh % NumberOfFaces + &
972 INTEGER :: t,i,j,k,l,m,k1,k2,n,p,q,e1,e2,f1,f2, nReord, EDOFs, FDOFs, BDOFs, This, istat, nthr local
1010 FDOFs = Mesh % MaxFaceDOFs
1178 IF( FDOFS > 0 ) n = n + Element % TYPE % NumberOfFaces * FDOFs
1217 Indexes(n) = FDOFs*(Element % FaceIndexes(j)-1) + i + &
1227 Indexes(n) = FDOFs*Mesh % NumberOfFaces + &
|
| H A D | Multigrid.F90 | 1282 INTEGER :: nb,i,j,EDOFs, FDOFs, BDOFs,FaceDOFs, EdgeDOFs, BubbleDOFs local
1340 FDOFs = Solver % Mesh % Faces( Element % FaceIndexes(j) ) % BDOFs
1341 DO i=1,FDOFs
1370 FDOFs = Element % BDOFs
1371 DO i=1,FDOFs
|
| H A D | Lists.F90 | 126 INTEGER i,j,l,t,n,e,k,k1,EDOFs, FDOFs, BDOFs, ndofs, el_id local
137 FDOFs = Mesh % MaxFaceDOFs
444 FDOFs*(Element % FaceIndexes(i)-1) + e
464 FDOFs*Mesh % NumberOfFaces + Element % BubbleIndexes(i)
|
| H A D | SolverUtils.F90 | 8090 INTEGER :: nb,i,j,EDOFs, FDOFs, BDOFs,FaceDOFs, EdgeDOFs, BubbleDOFs local
8152 FDOFs = Solver % Mesh % Faces( Element % FaceIndexes(j) ) % BDOFs
8153 DO i=1,FDOFs
8182 FDOFs = Element % BDOFs
8183 DO i=1,FDOFs
|