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
...@@ -48,12 +48,12 @@ PROGRAM inpgen ...@@ -48,12 +48,12 @@ PROGRAM inpgen
CHARACTER(len=7) :: symfn CHARACTER(len=7) :: symfn
CHARACTER(len=4) :: dispfn CHARACTER(len=4) :: dispfn
TYPE(t_input) :: input TYPE(t_input) :: input
TYPE(t_atoms) :: atoms TYPE(t_atoms) :: atoms
TYPE(t_cell) :: cell TYPE(t_cell) :: cell
TYPE(t_sym) :: sym TYPE(t_sym) :: sym
TYPE(t_noco) :: noco TYPE(t_noco) :: noco
TYPE(t_vacuum) :: vacuum TYPE(t_vacuum) :: vacuum
CALL inpgen_help() CALL inpgen_help()
...@@ -70,7 +70,7 @@ PROGRAM inpgen ...@@ -70,7 +70,7 @@ PROGRAM inpgen
bfh = 93 bfh = 93
input%l_inpXML = .FALSE. input%l_inpXML = .FALSE.
ALLOCATE ( mmrot(3,3,nop48), ttr(3,nop48) ) ALLOCATE ( mmrot(3,3,nop48), ttr(3,nop48) )
ALLOCATE ( atompos(3,natmax),atomid(natmax) ) ALLOCATE ( atompos(3,natmax),atomid(natmax) )
...@@ -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