Merge pull request #228 from openmopac/godotalgorithm-patch-1

Further delay of null file handle closing
openmopac · Nov 17, 2024 · 509a629 · 509a629
2 parents c44737d + 2cb8ec7
commit 509a629
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/interface/mopac_api_finalize.F90 b/src/interface/mopac_api_finalize.F90
@@ -53,9 +53,6 @@ module subroutine mopac_finalize(properties)
     ! 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
@@ -91,8 +88,12 @@ module subroutine mopac_finalize(properties)
     ! deallocate memory
     call setup_mopac_arrays(0,0)
     if (mozyme) call delete_MOZYME_arrays()
+
     ! turn use_disk back on
     use_disk = .true.
+
+    ! close dummy output file to free up /dev/null
+    close(iw)
   end subroutine mopac_finalize
 
   subroutine mopac_record(properties)