diff --git a/source/KKRnano/source/CalculationData_mod.F90 b/source/KKRnano/source/CalculationData_mod.F90 index 0ff9ee4431894f5110b2b4c1f9551a6a436884b2..c4ce5b1cf450cb54066da7efe91e100567f9db20 100644 --- a/source/KKRnano/source/CalculationData_mod.F90 +++ b/source/KKRnano/source/CalculationData_mod.F90 @@ -386,6 +386,12 @@ module CalculationData_mod call setup_iguess(self, dims, arrays%nofks, kmesh) ! setup storage for iguess if (params%noncobfield) then + + ! Check that noncollinear magnetism is enabled + if (dims%korbit < 1) then + die_here("Noncollinear magnetic fields (noncobfield=t) need noncollinear magnetism. Set korbit=1.") + end if + ! Output only as master, in that case copy the input parameter verbosity = -1 if (mp%isMasterRank) verbosity = params%bfield_verbosity