subroutine kslice_print_info(plot_fermi_lines, fermi_lines_color, plot_curv, plot_morb, plot_shc)
use w90_io, only: stdout, io_error
use w90_parameters, only: nfermi, fermi_energy_list, berry_curv_unit
logical, intent(in) :: plot_fermi_lines, fermi_lines_color, plot_curv, plot_morb, plot_shc
write (stdout, '(/,/,1x,a)') &
'Properties calculated in module k s l i c e'
write (stdout, '(1x,a)') &
'--------------------------------------------'
if (plot_fermi_lines) then
if (nfermi /= 1) call io_error( &
'Must specify one Fermi level when kslice_task=fermi_lines')
select case (fermi_lines_color)
case (.false.)
write (stdout, '(/,3x,a)') '* Fermi lines'
case (.true.)
write (stdout, '(/,3x,a)') '* Fermi lines coloured by spin'
end select
write (stdout, '(/,7x,a,f10.4,1x,a)') &
'(Fermi level: ', fermi_energy_list(1), 'eV)'
endif
if (plot_curv) then
if (berry_curv_unit == 'ang2') then
write (stdout, '(/,3x,a)') '* Negative Berry curvature in Ang^2'
elseif (berry_curv_unit == 'bohr2') then
write (stdout, '(/,3x,a)') '* Negative Berry curvature in Bohr^2'
endif
if (nfermi /= 1) call io_error( &
'Must specify one Fermi level when kslice_task=curv')
elseif (plot_morb) then
write (stdout, '(/,3x,a)') &
'* Orbital magnetization k-space integrand in eV.Ang^2'
if (nfermi /= 1) call io_error( &
'Must specify one Fermi level when kslice_task=morb')
elseif (plot_shc) then
if (berry_curv_unit == 'ang2') then
write (stdout, '(/,3x,a)') '* Berry curvature-like term ' &
//'of spin Hall conductivity in Ang^2'
elseif (berry_curv_unit == 'bohr2') then
write (stdout, '(/,3x,a)') '* Berry curvature-like term ' &
//'of spin Hall conductivity in Bohr^2'
endif
if (nfermi /= 1) call io_error( &
'Must specify one Fermi level when kslice_task=shc')
endif
end subroutine kslice_print_info