From 289f1fb1565ee4b02d6379c0e9054a1ca45257c1 Mon Sep 17 00:00:00 2001
From: Nicolas Essing <n.essing@fz-juelich.de>
Date: Wed, 27 Oct 2021 13:14:10 +0200
Subject: [PATCH] Changed a temporary variable in bfields to real that was
unnecessarily complex.
---
source/KKRnano/source/bfield/bfield.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/source/KKRnano/source/bfield/bfield.f90 b/source/KKRnano/source/bfield/bfield.f90
index 0e139ecbd..c4430a0e4 100644
--- a/source/KKRnano/source/bfield/bfield.f90
+++ b/source/KKRnano/source/bfield/bfield.f90
@@ -248,11 +248,11 @@ contains
double complex, parameter :: cplx_i = (0.d0, 1.d0)
integer :: lmmax, irmd, iend, ir ! loop boundaries and indices
- double complex, dimension(3) :: combined_bfields, dir ! vector of combined bfields and unit vector of magnetic moment direction
+ double precision, dimension(3) :: combined_bfields, dir ! vector of combined bfields and unit vector of magnetic moment direction
double complex, dimension(2,2) :: bfield_mat ! bfield times pauli matrices
double complex :: temp ! used to transpose the matrix
- ! If the current iteration is not in the window the magneti fields should be
+ ! If the current iteration is not in the window the magnetic fields should be
! applied, return without changing the potential
if (iteration_number < itscf0 .or. iteration_number > itscf1) then
return
--
GitLab