Remove module keyword from internal module subroutine mopac_record

openmopac · Sep 10, 2024 · 83c2634 · 83c2634
1 parent 68ecc4d
commit 83c2634
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/interface/mopac_api_finalize.F90 b/src/interface/mopac_api_finalize.F90
@@ -92,7 +92,7 @@ module subroutine mopac_finalize(properties)
     use_disk = .true.
   end subroutine mopac_finalize
 
-  module subroutine mopac_record(properties)
+  subroutine mopac_record(properties)
     type(mopac_properties), intent(out) :: properties
     integer, external :: ijbo
     double precision, external :: dipole, dipole_for_MOZYME