2
use precision, only: dp
4
integer, save, public :: nspin
5
real(dp), pointer, save, public :: efs(:)
6
real(dp), pointer, save, public :: qs(:)
12
subroutine init_spin()
14
use alloc, only: re_alloc
15
use parallel, only: IOnode
21
call fdf_global_get(sppol,'SpinPolarized',.false.)
22
call fdf_global_get(noncol,'NonCollinearSpin',.false.)
33
write(6,'(a,4x,i1)') &
34
'redata: Number of spin components = ',nspin
38
call re_alloc(efs,1,nspin,name="efs",routine="init_spin")
39
call re_alloc(qs,1,nspin,name="qs",routine="init_spin")
41
end subroutine init_spin