diff --git a/source/KKRhost/initldau.f90 b/source/KKRhost/initldau.f90
index 7267f1f0bdb5e76f48877e84a3e16a14ab974238..01d982a5b9e803a57ede387aedcf75c606c48017 100644
--- a/source/KKRhost/initldau.f90
+++ b/source/KKRhost/initldau.f90
@@ -207,6 +207,13 @@ contains
         write (1337, '(12X,A,2F8.4,A,/)') 'Ueff and Jeff = ', ueff(i1), jeff(i1), ' Ry'
         write (1337, '(12X,"Scaling factor for F^n :",F10.6,/)') scl
         write (1337, '(12X,"  n   F^n calculated   F^n scaled ")')
+        
+        if (scl==0) then
+          ! to prevent division by zero
+          ! we can do this here because scl is not use anymore in the remainder
+          scl = 1.0
+        end if
+
         do lf = 2, lfmax, 2
           write (1337, '(12X,I3,2(2X,F12.8," Ry"))') lf, fclmb(lf)/scl, fclmb(lf)
         end do