223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

4 newer versions are out

This commit is contained in:
Martin Diehl 2020-01-10 03:19:39 +01:00
parent 87c7a5d5a3
commit 115a2552f8
1 changed files with 8 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/element.f90
View File

@ -39,7 +39,7 @@ module element
integer, parameter, private :: & integer, parameter, private :: &
NELEMTYPE = 13 NELEMTYPE = 13
integer, dimension(NelemType), parameter, private :: NNODE = & integer, dimension(NELEMTYPE), parameter, private :: NNODE = &
[ & [ &
3, & ! 2D 3node 1ip 3, & ! 2D 3node 1ip
6, & ! 2D 6node 3ip 6, & ! 2D 6node 3ip
@ -57,7 +57,7 @@ module element
20 & ! 3D 20node 27ip 20 & ! 3D 20node 27ip
] !< number of nodes that constitute a specific type of element ] !< number of nodes that constitute a specific type of element
integer, dimension(NelemType), parameter, public :: GEOMTYPE = & integer, dimension(NELEMTYPE), parameter, public :: GEOMTYPE = &
[ & [ &
1, & 1, &
2, & 2, &
@ -74,8 +74,7 @@ module element
10 & 10 &
] !< geometry type of particular element type ] !< geometry type of particular element type
!integer, dimension(maxval(geomType)), parameter, private :: NCELLNODE = & ! Intel 16.0 complains integer, dimension(maxval(GEOMTYPE)), parameter, private :: NCELLNODE = &
integer, dimension(10), parameter, private :: NCELLNODE = &
[ & [ &
3, & 3, &
7, & 7, &
@ -89,8 +88,7 @@ module element
64 & 64 &
] !< number of cell nodes in a specific geometry type ] !< number of cell nodes in a specific geometry type
!integer, dimension(maxval(geomType)), parameter, private :: NIP = & ! Intel 16.0 complains integer, dimension(maxval(GEOMTYPE)), parameter, private :: NIP = &
integer, dimension(10), parameter, private :: NIP = &
[ & [ &
1, & 1, &
3, & 3, &
@ -104,8 +102,7 @@ module element
27 & 27 &
] !< number of IPs in a specific geometry type ] !< number of IPs in a specific geometry type
!integer, dimension(maxval(geomType)), parameter, private :: CELLTYPE = & ! Intel 16.0 complains integer, dimension(maxval(GEOMTYPE)), parameter, private :: CELLTYPE = &
integer, dimension(10), parameter, private :: CELLTYPE = &
[ & [ &
1, & ! 2D 3node 1, & ! 2D 3node
2, & ! 2D 4node 2, & ! 2D 4node
@ -119,8 +116,7 @@ module element
4 & ! 3D 8node 4 & ! 3D 8node
] !< cell type that is used by each geometry type ] !< cell type that is used by each geometry type
!integer, dimension(maxval(cellType)), parameter, private :: nIPNeighbor = & ! Intel 16.0 complains integer, dimension(maxval(CELLTYPE)), parameter, private :: NIPNEIGHBOR = &
integer, dimension(4), parameter, private :: NIPNEIGHBOR = &
[ & [ &
3, & ! 2D 3node 3, & ! 2D 3node
4, & ! 2D 4node 4, & ! 2D 4node
@ -128,8 +124,7 @@ module element
6 & ! 3D 8node 6 & ! 3D 8node
] !< number of ip neighbors / cell faces in a specific cell type ] !< number of ip neighbors / cell faces in a specific cell type
!integer, dimension(maxval(cellType)), parameter, private :: NCELLNODESPERCELLFACE = & ! Intel 16.0 complains integer, dimension(maxval(CELLTYPE)), parameter, private :: NCELLNODEPERCELLFACE = &
integer, dimension(4), parameter, private :: NCELLNODEPERCELLFACE = &
[ & [ &
2, & ! 2D 3node 2, & ! 2D 3node
2, & ! 2D 4node 2, & ! 2D 4node
@ -137,8 +132,7 @@ module element
4 & ! 3D 8node 4 & ! 3D 8node
] !< number of cell nodes in a specific cell type ] !< number of cell nodes in a specific cell type
!integer, dimension(maxval(CELLTYPE)), parameter, private :: NCELLNODEPERCELL = & ! Intel 16.0 complains integer, dimension(maxval(CELLTYPE)), parameter, private :: NCELLNODEPERCELL = &
integer, dimension(4), parameter, private :: NCELLNODEPERCELL = &
[ & [ &
3, & ! 2D 3node 3, & ! 2D 3node
4, & ! 2D 4node 4, & ! 2D 4node