From 79307de6a79c6a6772cc1c87768f384080bad91f Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 30 Dec 2013 10:06:01 +0000 Subject: [PATCH] added some code parts for HDF5 in Fortran --- code/mesh.f90 | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/code/mesh.f90 b/code/mesh.f90 index 1d3808cd2..ef3323137 100644 --- a/code/mesh.f90 +++ b/code/mesh.f90 @@ -118,8 +118,9 @@ module mesh integer(pInt), dimension(:,:,:,:), allocatable, private :: & FE_subNodeOnIPFace - +#ifdef Abaqus logical, private :: noPart !< for cases where the ABAQUS input file does not use part/assembly information +#endif #ifdef Spectral include 'fftw3.f03' @@ -709,9 +710,9 @@ subroutine mesh_build_cellconnectivity localCellnodeID - allocate(mesh_cell(FE_maxNcellnodesPerCell,mesh_maxNips,mesh_NcpElems)) ; mesh_cell = 0_pInt - allocate(matchingNode2cellnode(mesh_Nnodes)) ; matchingNode2cellnode = 0_pInt - allocate(cellnodeParent(2_pInt,mesh_maxNcellnodes*mesh_NcpElems)) ; cellnodeParent = 0_pInt + allocate(mesh_cell(FE_maxNcellnodesPerCell,mesh_maxNips,mesh_NcpElems), source=0_pInt) + allocate(matchingNode2cellnode(mesh_Nnodes), source=0_pInt) + allocate(cellnodeParent(2_pInt,mesh_maxNcellnodes*mesh_NcpElems), source=0_pInt) !-------------------------------------------------------------------------------------------------- ! Count cell nodes (including duplicates) and generate cell connectivity list