Commit 28715bf8 authored by Gregor Michalicek's avatar Gregor Michalicek

Set ctail to false and l_noco to true if qss is provided

parent 2db0d342
...@@ -79,6 +79,8 @@ PROGRAM inpgen ...@@ -79,6 +79,8 @@ PROGRAM inpgen
OPEN (6,file='out',form='formatted',status='unknown') OPEN (6,file='out',form='formatted',status='unknown')
OPEN (bfh,file='bfh.txt',form='formatted',status='unknown') OPEN (bfh,file='bfh.txt',form='formatted',status='unknown')
noco%l_ss = .FALSE.
CALL struct_input(& CALL struct_input(&
& infh,errfh,warnfh,symfh,symfn,bfh,& & infh,errfh,warnfh,symfh,symfn,bfh,&
& natmax,nop48,& & natmax,nop48,&
......
...@@ -380,7 +380,7 @@ ...@@ -380,7 +380,7 @@
ALLOCATE (Jij%alph1(atoms%ntype),Jij%l_magn(atoms%ntype),Jij%M(atoms%ntype)) ALLOCATE (Jij%alph1(atoms%ntype),Jij%l_magn(atoms%ntype),Jij%M(atoms%ntype))
ALLOCATE (Jij%magtype(atoms%ntype),Jij%nmagtype(atoms%ntype)) ALLOCATE (Jij%magtype(atoms%ntype),Jij%nmagtype(atoms%ntype))
noco%l_ss = .FALSE. IF (noco%l_ss) input%ctail = .FALSE.
noco%l_mperp = .FALSE. noco%l_mperp = .FALSE.
noco%l_constr = .FALSE. noco%l_constr = .FALSE.
Jij%l_disp = .FALSE. Jij%l_disp = .FALSE.
......
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