get_win_min Subroutine

  1. get_oper.F90
  2. w90_get_oper
  3. get_win_min

private subroutine get_win_min(ik, win_min)

Uses

  • proc~~get_win_min~~UsesGraph proc~get_win_min get_win_min module~w90_parameters w90_parameters proc~get_win_min->module~w90_parameters module~w90_constants w90_constants proc~get_win_min->module~w90_constants module~w90_parameters->module~w90_constants module~w90_io w90_io module~w90_parameters->module~w90_io module~w90_io->module~w90_constants

Find the lower bound (band index) of the outer energy window at the specified k-point

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: ik

Index of the required k-point
integer, intent(out) :: win_min

Index of the lower band of the outer energy window

Called by

proc~~get_win_min~~CalledByGraph proc~get_win_min get_win_min proc~get_bb_r get_BB_R proc~get_bb_r->proc~get_win_min proc~get_gauge_overlap_matrix get_gauge_overlap_matrix proc~get_gauge_overlap_matrix->proc~get_win_min proc~get_ff_r get_FF_R proc~get_ff_r->proc~get_win_min proc~get_cc_r get_CC_R proc~get_cc_r->proc~get_win_min proc~get_hh_r get_HH_R proc~get_hh_r->proc~get_win_min proc~calctdfanddos calcTDFandDOS proc~calctdfanddos->proc~get_hh_r proc~wham_get_eig_deleig wham_get_eig_deleig proc~calctdfanddos->proc~wham_get_eig_deleig proc~wham_get_eig_uu_hh_jjlist wham_get_eig_UU_HH_JJlist proc~wham_get_eig_uu_hh_jjlist->proc~get_hh_r proc~berry_main berry_main proc~berry_main->proc~get_bb_r proc~berry_main->proc~get_cc_r proc~berry_main->proc~get_hh_r proc~berry_get_sc_klist berry_get_sc_klist proc~berry_main->proc~berry_get_sc_klist proc~berry_get_shc_klist berry_get_shc_klist proc~berry_main->proc~berry_get_shc_klist proc~berry_get_imfgh_klist berry_get_imfgh_klist proc~berry_main->proc~berry_get_imfgh_klist proc~berry_get_kubo_k berry_get_kubo_k proc~berry_main->proc~berry_get_kubo_k proc~berry_get_imf_klist berry_get_imf_klist proc~berry_main->proc~berry_get_imf_klist proc~k_slice k_slice proc~k_slice->proc~get_bb_r proc~k_slice->proc~get_cc_r proc~k_slice->proc~get_hh_r proc~k_slice->proc~wham_get_eig_deleig proc~k_slice->proc~berry_get_shc_klist proc~k_slice->proc~berry_get_imfgh_klist proc~k_slice->proc~berry_get_imf_klist proc~gyrotropic_main gyrotropic_main proc~gyrotropic_main->proc~get_bb_r proc~gyrotropic_main->proc~get_cc_r proc~gyrotropic_main->proc~get_hh_r proc~gyrotropic_get_k_list gyrotropic_get_k_list proc~gyrotropic_main->proc~gyrotropic_get_k_list proc~wham_get_eig_deleig->proc~get_hh_r proc~wham_get_eig_uu_hh_aa_sc_tb_conv wham_get_eig_UU_HH_AA_sc_TB_conv proc~wham_get_eig_uu_hh_aa_sc_tb_conv->proc~get_hh_r proc~wham_get_eig_uu_hh_aa_sc wham_get_eig_UU_HH_AA_sc proc~wham_get_eig_uu_hh_aa_sc->proc~get_hh_r proc~dos_main dos_main proc~dos_main->proc~get_hh_r proc~dos_main->proc~wham_get_eig_deleig proc~k_path k_path proc~k_path->proc~get_bb_r proc~k_path->proc~get_cc_r proc~k_path->proc~get_hh_r proc~k_path->proc~berry_get_shc_klist proc~k_path->proc~berry_get_imfgh_klist proc~k_path->proc~berry_get_imf_klist proc~geninterp_main geninterp_main proc~geninterp_main->proc~get_hh_r proc~spin_get_moment spin_get_moment proc~spin_get_moment->proc~get_hh_r proc~boltzwann_main boltzwann_main proc~boltzwann_main->proc~calctdfanddos proc~berry_get_sc_klist->proc~wham_get_eig_deleig proc~berry_get_sc_klist->proc~wham_get_eig_uu_hh_aa_sc_tb_conv proc~berry_get_sc_klist->proc~wham_get_eig_uu_hh_aa_sc proc~berry_get_shc_klist->proc~wham_get_eig_deleig proc~gyrotropic_get_k_list->proc~wham_get_eig_deleig proc~gyrotropic_get_k_list->proc~berry_get_imfgh_klist proc~gyrotropic_get_k_list->proc~berry_get_imf_klist proc~berry_get_imfgh_klist->proc~wham_get_eig_uu_hh_jjlist proc~berry_get_kubo_k->proc~wham_get_eig_deleig proc~berry_get_imf_klist->proc~berry_get_imfgh_klist

Contents

Source Code

get_win_min

Source Code

  subroutine get_win_min(ik, win_min)
    !===============================================
    !
    !! Find the lower bound (band index) of the
    !! outer energy window at the specified k-point
    !
    !===============================================

    use w90_constants, only: dp
    use w90_parameters, only: num_bands, lwindow, have_disentangled

    implicit none

    ! Arguments
    !
    integer, intent(in)  :: ik
    !! Index of the required k-point
    integer, intent(out) :: win_min
    !! Index of the lower band of the outer energy window

    integer :: j

    if (.not. have_disentangled) then
      win_min = 1
      return
    endif

    do j = 1, num_bands
      if (lwindow(j, ik)) then
        win_min = j
        exit
      end if
    end do

  end subroutine get_win_min