Deallocate fix

PHOTOX · Apr 15, 2023 · 56aa52e · 56aa52e
1 parent eaa344f
commit 56aa52e
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/src/force_mm.F90 b/src/force_mm.F90
@@ -91,7 +91,6 @@ function normalize_atom_types(atom_types) result(attypes)
          attypes(itype) = normalize_atom_name(atom_types(i))
          itype = itype + 1
       end do
-      deallocate (attypes)
    end function normalize_atom_types
 
    ! Here we create the mapping from atom index