w90_get_num_excl_bands Subroutine

public subroutine w90_get_num_excl_bands(common_data, num_excl_bands)

Arguments

Type IntentOptional Attributes Name
type(lib_common_type), intent(in) :: common_data

library data object
integer, intent(out) :: num_excl_bands

number of excluded bands, for sizing array arg of w90_get_excl_bands

Called by

proc~~w90_get_num_excl_bands~2~~CalledByGraph proc~w90_get_num_excl_bands~2 w90_get_num_excl_bands proc~w90_get_excl_bands w90_get_excl_bands proc~w90_get_excl_bands->proc~w90_get_num_excl_bands~2 proc~w90_get_num_excl_bands w90_get_num_excl_bands proc~w90_get_num_excl_bands->proc~w90_get_num_excl_bands~2

Source Code

  subroutine w90_get_num_excl_bands(common_data, num_excl_bands)
    implicit none

    integer, intent(out) :: num_excl_bands
    !! number of excluded bands, for sizing array arg of w90_get_excl_bands
    type(lib_common_type), intent(in) :: common_data
    !! library data object

    if (.not. allocated(common_data%exclude_bands)) then
      num_excl_bands = 0
    else
      num_excl_bands = size(common_data%exclude_bands(:))
    end if
  end subroutine w90_get_num_excl_bands