Commit b7132ca3 authored by P.Buhl's avatar P.Buhl

wann_setup interface for wannier2.0 library

parent 50799d23
...@@ -65,7 +65,8 @@ c****************************************************** ...@@ -65,7 +65,8 @@ c******************************************************
+ atoms_cart_loc, gamma_only_loc, spinors_loc, nntot_loc, + atoms_cart_loc, gamma_only_loc, spinors_loc, nntot_loc,
+ nnlist_loc, nncell_loc, num_bands_loc, num_wann_loc, + nnlist_loc, nncell_loc, num_bands_loc, num_wann_loc,
+ proj_site_loc, proj_l_loc, proj_m_loc, proj_radial_loc, + proj_site_loc, proj_l_loc, proj_m_loc, proj_radial_loc,
+ proj_z_loc, proj_x_loc, proj_zona_loc, exclude_bands_loc) + proj_z_loc, proj_x_loc, proj_zona_loc, exclude_bands_loc,
+ proj_s_loc,proj_s_qaxis_loc)
implicit none implicit none
integer, parameter :: dp = selected_real_kind(15,300) integer, parameter :: dp = selected_real_kind(15,300)
...@@ -107,6 +108,10 @@ c****************************************************** ...@@ -107,6 +108,10 @@ c******************************************************
+ proj_zona_loc + proj_zona_loc
integer, dimension(num_bands_tot), intent(out) :: integer, dimension(num_bands_tot), intent(out) ::
+ exclude_bands_loc + exclude_bands_loc
integer, dimension(num_bands_tot), optional, intent(out) ::
+ proj_s_loc
real(kind=dp), dimension(3,num_bands_tot), optional,
+ intent(out) :: proj_s_qaxis_loc
end subroutine wannier_setup end subroutine wannier_setup
end interface end interface
......
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