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

array order was wrong

This commit is contained in:
Martin Diehl 2019-10-14 11:25:48 +02:00
parent 57af822396
commit dcbd7624dd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mesh_marc.f90
View File

@ -606,7 +606,7 @@ function inputRead_connectivityElem(nElem,nNodes,fileUnit)
nNodes, & !< number of nodes per element nNodes, & !< number of nodes per element
fileUnit fileUnit
integer, dimension(nElem,nNodes) :: & integer, dimension(nNodes,nElem) :: &
inputRead_connectivityElem inputRead_connectivityElem
integer, allocatable, dimension(:) :: chunkPos integer, allocatable, dimension(:) :: chunkPos
@ -732,7 +732,7 @@ subroutine buildCells(connectivity_cell,cellNodeDefinition, &
integer :: e, n, c, p, s,i,m,j,nParentNodes,nCellNode,Nelem,candidateID integer :: e, n, c, p, s,i,m,j,nParentNodes,nCellNode,Nelem,candidateID
Nelem = size(connectivity_elem,1) Nelem = size(connectivity_elem,2)
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
! initialize global connectivity to negative local connectivity ! initialize global connectivity to negative local connectivity