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

no public variables

This commit is contained in:
Martin Diehl 2019-10-13 20:52:49 +02:00
parent 6456f9891b
commit 369cae5332
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mesh_marc.f90
View File

@ -47,9 +47,6 @@ module mesh
integer, dimension(:,:), allocatable :: & integer, dimension(:,:), allocatable :: &
connectivity_elem connectivity_elem
real(pReal), dimension(:,:), allocatable :: &
mesh_node, & !< node x,y,z coordinates (after deformation! ONLY FOR MARC!!!
mesh_node0 !< node x,y,z coordinates (initially!)
type(tMesh) :: theMesh type(tMesh) :: theMesh
@ -79,6 +76,9 @@ subroutine mesh_init(ip,el)
character(len=pStringLen), dimension(:), allocatable :: inputFile !< file content, separated per lines character(len=pStringLen), dimension(:), allocatable :: inputFile !< file content, separated per lines
integer :: & integer :: &
mesh_NelemSets mesh_NelemSets
real(pReal), dimension(:,:), allocatable :: &
mesh_node, & !< node x,y,z coordinates (after deformation! ONLY FOR MARC!!!
mesh_node0 !< node x,y,z coordinates (initially!)
integer :: j, fileFormatVersion, elemType, & integer :: j, fileFormatVersion, elemType, &
mesh_maxNelemInSet, & mesh_maxNelemInSet, &