Ticket #50616: patch-src-10_defs-defs_wannier90.F90.diff
File patch-src-10_defs-defs_wannier90.F90.diff, 992 bytes (added by cram5431@…, 9 years ago) |
---|
-
src/10_defs/defs_wannier90.F90
old new 31 31 gamma_only_loc,spinors_loc, & 32 32 nntot_loc,nnlist_loc,nncell_loc,num_bands_loc,num_wann_loc, & 33 33 proj_site_loc,proj_l_loc,proj_m_loc,proj_radial_loc,proj_z_loc, & 34 proj_x_loc,proj_zona_loc,exclude_bands_loc) 34 proj_x_loc,proj_zona_loc,exclude_bands_loc, & 35 & proj_s_loc,proj_s_qaxis_loc) 36 35 37 use defs_basis 36 38 implicit none 37 39 character(len=*), intent(in) :: seed__name … … 59 61 real(dp), dimension(3,num_bands_tot), intent(out) :: proj_x_loc 60 62 real(dp), dimension(num_bands_tot), intent(out) :: proj_zona_loc 61 63 integer, dimension(num_bands_tot), intent(out) :: exclude_bands_loc 64 integer, dimension(num_bands_tot), optional, intent(out) :: proj_s_loc 65 real(dp), dimension(3,num_bands_tot), optional, intent(out) :: proj_s_qaxis_loc 62 66 end subroutine wannier_setup 63 67 end interface 64 68