Commit 89dbf8ee authored by Daniel Wortmann's avatar Daniel Wortmann

Fix for mixing in fullyfullynoco case

parent 337e9427
...@@ -195,6 +195,7 @@ CONTAINS ...@@ -195,6 +195,7 @@ CONTAINS
nmap = j nmap = j
nall = (intfac*stars%ng3 + mapmt + mapvac + 49*2*atoms%n_u )*input%jspins nall = (intfac*stars%ng3 + mapmt + mapvac + 49*2*atoms%n_u )*input%jspins
IF (noco%l_noco) nall = nall + 2*stars%ng3 + mapvac2 IF (noco%l_noco) nall = nall + 2*stars%ng3 + mapvac2
IF (noco%l_mtnocopot) nall=nall+mapmt*2
IF (nall.NE.nmap) THEN IF (nall.NE.nmap) THEN
WRITE(6,*)'The total number of charge density coefficients is' WRITE(6,*)'The total number of charge density coefficients is'
WRITE(6,*)'inconsitent:' WRITE(6,*)'inconsitent:'
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment