| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
| H A D | ModelMixedPoisson.F90 | 272 INTEGER, TARGET :: TetraFaceMap(4,3) local
340 TetraFaceMap(1,:) = (/ 2, 1, 3 /)
341 TetraFaceMap(2,:) = (/ 1, 2, 4 /)
342 TetraFaceMap(3,:) = (/ 2, 3, 4 /)
343 TetraFaceMap(4,:) = (/ 3, 1, 4 /)
349 … IF (ANY(Element % NodeIndexes(1:3) /= Parent % NodeIndexes(TetraFaceMap(ActiveFaceId,1:3)))) THEN
354 Element % NodeIndexes(1:3) = Parent % NodeIndexes(TetraFaceMap(ActiveFaceId,1:3))
|
| H A D | ProjectToPlane.F90 | 606 TetraFaceMap(1,:) = [ 1, 2, 3 ]
607 TetraFaceMap(2,:) = [ 1, 2, 4 ]
608 TetraFaceMap(3,:) = [ 2, 3, 4 ]
609 TetraFaceMap(4,:) = [ 3, 1, 4 ]
649 FaceMap => TetraFaceMap
1675 INTEGER, TARGET :: TetraFaceMap(4,3), BrickFaceMap(12,3), & local
1684 TetraFaceMap(1,:) = [ 1, 2, 3 ]
1685 TetraFaceMap(2,:) = [ 1, 2, 4 ]
1686 TetraFaceMap(3,:) = [ 2, 3, 4 ]
1687 TetraFaceMap(4,:) = [ 3, 1, 4 ]
[all …]
|
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
| H A D | ProjectCalving.F90 | 1009 INTEGER, TARGET :: TetraFaceMap(4,3), BrickFaceMap(12,3), & local
1012 SAVE Visited, TetraFaceMap, BrickFaceMap, WedgeFaceMap, PyramidFaceMap, &
1018 TetraFaceMap(1,:) = (/ 1, 2, 3 /)
1019 TetraFaceMap(2,:) = (/ 1, 2, 4 /)
1020 TetraFaceMap(3,:) = (/ 2, 3, 4 /)
1021 TetraFaceMap(4,:) = (/ 3, 1, 4 /)
1061 FaceMap => TetraFaceMap
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | ElementDescription.F90 | 5048 INTEGER, TARGET :: TetraFaceMap(4,3) local
5112 TetraFaceMap(1,:) = (/ 2, 1, 3 /)
5113 TetraFaceMap(2,:) = (/ 1, 2, 4 /)
5114 TetraFaceMap(3,:) = (/ 2, 3, 4 /)
5115 TetraFaceMap(4,:) = (/ 3, 1, 4 /)
5117 FaceMap => TetraFaceMap
5267 TetraFaceMap(1,:) = (/ 2, 1, 3 /)
5268 TetraFaceMap(2,:) = (/ 1, 2, 4 /)
5269 TetraFaceMap(3,:) = (/ 2, 3, 4 /)
5270 TetraFaceMap(4,:) = (/ 3, 1, 4 /)
[all …]
|
| H A D | DefUtils.F90 | 5668 INTEGER :: TetraFaceMap(4,3), ActiveFaceMap(3) local
5697 TetraFaceMap(1,:) = [ 2, 1, 3 ]
5698 TetraFaceMap(2,:) = [ 1, 2, 4 ]
5699 TetraFaceMap(3,:) = [ 2, 3, 4 ]
5700 TetraFaceMap(4,:) = [ 3, 1, 4 ]
5702 ActiveFaceMap(1:3) = TetraFaceMap(FaceId,1:3)
|
| H A D | MeshUtils.F90 | 14572 INTEGER, TARGET :: TetraFaceMap(4,6), BrickFaceMap(6,9), & local
14582 TetraFaceMap(1,:) = [ 1, 2, 3, 5, 6, 7 ]
14583 TetraFaceMap(2,:) = [ 1, 2, 4, 5, 9, 8 ]
14584 TetraFaceMap(3,:) = [ 2, 3, 4, 6, 10, 9 ]
14585 TetraFaceMap(4,:) = [ 3, 1, 4, 7, 8,10 ]
14650 FaceMap => TetraFaceMap
14904 INTEGER, TARGET :: TetraEdgeMap(6,3), BrickEdgeMap(12,3), TetraFaceMap(4,6), & local
14911 TetraFaceMap(1,:) = [ 1, 2, 3, 5, 6, 7 ]
14912 TetraFaceMap(2,:) = [ 1, 2, 4, 5, 9, 8 ]
14913 TetraFaceMap(3,:) = [ 2, 3, 4, 6,10, 9 ]
[all …]
|