From 5497b87389bf82cd0754eaa7a299e88f8da660af Mon Sep 17 00:00:00 2001
From: Eduardo Mendive Tapia <mendivetapia1@judac03.zam.kfa-juelich.de>
Date: Wed, 27 Oct 2021 11:24:30 +0200
Subject: [PATCH] Fix: move the bfield part inside the ila-loop
---
source/KKRnano/source/ProcessKKRresults_mod.F90 | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/source/KKRnano/source/ProcessKKRresults_mod.F90 b/source/KKRnano/source/ProcessKKRresults_mod.F90
index bd9c3084a..c3ed1dd5f 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)
--
GitLab