Delay null file handle closure until after post-processing

openmopac · Nov 17, 2024 · cd9b9aa · cd9b9aa
1 parent c92b082
commit cd9b9aa
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/interface/mopac_api_finalize.F90 b/src/interface/mopac_api_finalize.F90
@@ -50,12 +50,12 @@ module subroutine mopac_finalize(properties)
     integer :: status, i, j, size
     type(c_ptr), allocatable :: pptr(:)
 
-    ! close dummy output file to free up /dev/null
-    close(iw)
-
     ! record properties
     if (.not. moperr) call mopac_record(properties)
 
+    ! close dummy output file to free up /dev/null
+    close(iw)
+
     ! collect error messages & assign NULL pointers for memory safety
     if (moperr) then
       properties%charge = c_null_ptr