diff --git a/src/hartree_fock/scf.irp.f b/src/hartree_fock/scf.irp.f
index 7a24bf97..fabe9dd1 100644
--- a/src/hartree_fock/scf.irp.f
+++ b/src/hartree_fock/scf.irp.f
@@ -93,7 +93,7 @@ subroutine run
 
   mo_label = "Orthonormalized"
   if (is_periodic) then
-    call roothan_hall_scf_complex
+    call roothaan_hall_scf_complex
   else
     call roothaan_hall_scf
   endif