From 434fc4e94e86c4b268ceb6911f6593cc4c7f7573 Mon Sep 17 00:00:00 2001 From: Bryan Herman Date: Fri, 12 Apr 2013 10:49:18 -0700 Subject: [PATCH] fixed incorrect array size when reading entropy from HDF5 file --- src/hdf5_interface.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/hdf5_interface.F90 b/src/hdf5_interface.F90 index 29c36aaae..8189a56ed 100644 --- a/src/hdf5_interface.F90 +++ b/src/hdf5_interface.F90 @@ -1195,6 +1195,7 @@ contains dims(1) = restart_batch call h5ltread_dataset_double_f(hdf5_state_point, "k_batch", & k_batch(1:restart_batch), dims, hdf5_err) + dims(1) = restart_batch*gen_per_batch call h5ltread_dataset_double_f(hdf5_state_point, "entropy", & entropy(1:restart_batch*gen_per_batch), dims, hdf5_err) call hdf5_read_double(hdf5_state_point, "k_col_abs", k_col_abs)