From fabab089366bfa44327dc8e3f1c0305ad8d41d63 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 12 Oct 2019 16:25:59 +0200 Subject: [PATCH] did not run without HDF5 support --- src/mesh_marc.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/mesh_marc.f90 b/src/mesh_marc.f90 index 1b6cb5586..1f4738bec 100644 --- a/src/mesh_marc.f90 +++ b/src/mesh_marc.f90 @@ -204,7 +204,7 @@ subroutine mesh_init(ip,el) call discretization_init(microstructureAt,homogenizationAt,& ip_reshaped,& mesh_node0) - +#if defined(DAMASK_HDF5) call results_openJobFile call HDF5_closeGroup(results_addGroup('geometry')) call results_writeDataset('geometry',ip_reshaped,'x_c', & @@ -212,6 +212,7 @@ subroutine mesh_init(ip,el) call results_writeDataset('geometry',mesh_node0,'x_n', & 'nodal coordinates','m') call results_closeJobFile() +#endif call geometry_plastic_nonlocal_setIPvolume(IPvolume()) call geometry_plastic_nonlocal_setIPneighborhood(mesh_ipNeighborhood2) call geometry_plastic_nonlocal_setIParea(mesh_ipArea)