From dcbd7624dd9d9f6c7108399184f96282d9f74018 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 14 Oct 2019 11:25:48 +0200 Subject: [PATCH] array order was wrong --- src/mesh_marc.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/mesh_marc.f90 b/src/mesh_marc.f90 index 0e5607028..8109806ba 100644 --- a/src/mesh_marc.f90 +++ b/src/mesh_marc.f90 @@ -606,7 +606,7 @@ function inputRead_connectivityElem(nElem,nNodes,fileUnit) nNodes, & !< number of nodes per element fileUnit - integer, dimension(nElem,nNodes) :: & + integer, dimension(nNodes,nElem) :: & inputRead_connectivityElem 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 - Nelem = size(connectivity_elem,1) + Nelem = size(connectivity_elem,2) !--------------------------------------------------------------------------------------------------- ! initialize global connectivity to negative local connectivity