148
148
$ "non-coll spins or Spin-orbit yet")
150
150
call elsi_solver(iscf, no_u, no_l, spin%spinor,
151
$ maxnh, listhptr, listh,
152
$ qtot, temp, H, S, Dscf, Escf,
151
$ maxnh, listhptr, listh, qtot, temp,
152
$ H, S, Dscf, Escf, ef, Entropy)
155
154
if (.not. SIESTA_worker) RETURN