Fix memory leak mg5amcnlo#109 in madevent_driver.f (close file dname.mg)

valassi · Jun 25, 2024 · f6d90fa · f6d90fa
1 parent f9f9579
commit f6d90fa
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/madgraph/iolibs/template_files/madevent_driver.f b/madgraph/iolibs/template_files/madevent_driver.f
@@ -94,6 +94,7 @@ Program DRIVER
       l2=index(buf,'_')
       if(l1.ne.0.and.l2.ne.0.and.l1.lt.l2-1)
      $     read(buf(l1+1:l2-1),*,err=11) ngroup
+      close (lun+1)
  11   print *,'Process in group number ',ngroup
 
 c     Read weight from results.dat if present, to allow event generation