Ticket #50616: patch-src-10_defs-defs_wannier90.F90.diff

src/10_defs/defs_wannier90.F90

@@ -31 +31 @@
      gamma_only_loc,spinors_loc, &
      nntot_loc,nnlist_loc,nncell_loc,num_bands_loc,num_wann_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_x_loc,proj_zona_loc,exclude_bands_loc, &
+&    proj_s_loc,proj_s_qaxis_loc)
+
   use defs_basis
   implicit none
   character(len=*), intent(in) :: seed__name
@@ -59 +61 @@
   real(dp), dimension(3,num_bands_tot), intent(out) :: proj_x_loc
   real(dp), dimension(num_bands_tot), intent(out) :: proj_zona_loc
   integer, dimension(num_bands_tot), intent(out) :: exclude_bands_loc
+  integer, dimension(num_bands_tot), optional, intent(out) :: proj_s_loc
+  real(dp), dimension(3,num_bands_tot), optional, intent(out) :: proj_s_qaxis_loc
   end subroutine wannier_setup
  end interface