Deallocate OpenMP variables

foxtran · foxtran · commit ec87bbf61793 · 2025-11-23T03:24:59.000+01:00
Signed-off-by: Igor S. Gerasimov &lt;foxtranigor@gmail.com&gt;
diff --git a/src/gfnff/gfnff_ini2.F90 b/src/gfnff/gfnff_ini2.F90
@@ -909,6 +909,7 @@ subroutine gfnff_hbset(n, at, xyz, topo, neigh, nlist, hbthr1, hbthr2)
 #ifndef _OPENMP
     end associate
 #endif
+!$  deallocate(hblist1, hblist2, hblist3)
 
     !$omp end parallel
 
