diff --git a/source/KKRnano/source/ProcessKKRresults_mod.F90 b/source/KKRnano/source/ProcessKKRresults_mod.F90
index bd9c3084a90ffe8f5f4e38d2953590b68e20d2e9..c3ed1dd5f76008c634de9039ce6dfa065af0aead 100644
--- a/source/KKRnano/source/ProcessKKRresults_mod.F90
+++ b/source/KKRnano/source/ProcessKKRresults_mod.F90
@@ -1172,11 +1172,11 @@ module ProcessKKRresults_mod
             calc%noco_data%moment_z(atom_id)
         irec = irec + 1
       endif
+      if (params%noncobfield) then
+        write(unit=r1fu, rec=irec) calc%bfields(ila)%bfield_constr
+        irec = irec + 1
+      end if
     end do
-    if (params%noncobfield) then
-      write(unit=r1fu, rec=irec) calc%bfields(ila)%bfield_constr
-      irec = irec + 1
-    end if
 
     close(r1fu)