From 0f1cbdfd1484d1d12d795e8b68e3edb09707824e Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Sat, 19 Sep 2015 13:44:18 +0700 Subject: [PATCH] Get rid of unused variable sab_group --- src/summary.F90 | 1 - 1 file changed, 1 deletion(-) diff --git a/src/summary.F90 b/src/summary.F90 index 5fcdbf81ce..68f967a744 100644 --- a/src/summary.F90 +++ b/src/summary.F90 @@ -400,7 +400,6 @@ contains integer, allocatable :: zaids(:) integer(HID_T) :: materials_group integer(HID_T) :: material_group - integer(HID_T) :: sab_group type(Material), pointer :: m materials_group = create_group(file_id, "materials")