From 4651bfdb9011e52da5cb66d9be562e2289be1c5c Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 13 Jun 2019 09:59:37 +0200 Subject: [PATCH] [skip ci] clearer logic --- src/mesh_marc.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mesh_marc.f90 b/src/mesh_marc.f90 index 2054a9452..76f121a2a 100644 --- a/src/mesh_marc.f90 +++ b/src/mesh_marc.f90 @@ -881,9 +881,9 @@ subroutine buildCells(thisMesh,elem,connectivity_elem) enddo thisMesh%node_0 = nodes mesh_cell2 = connectivity_cell - connectivity_cell_reshape = reshape(connectivity_cell,[elem%NcellNodesPerCell,elem%nIPs*Nelem]) #if defined(DAMASK_HDF5) + connectivity_cell_reshape = reshape(connectivity_cell,[elem%NcellNodesPerCell,elem%nIPs*Nelem]) call results_openJobFile call results_writeDataset('geometry',connectivity_cell_reshape,'c',& 'connectivity of the cells','-')