Get rid of unused variable sab_group

This commit is contained in:
Paul Romano 2015-09-19 13:44:18 +07:00
parent bcbb8f6a3f
commit 0f1cbdfd14

View file

@ -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")