is_open Function

public function is_open(energy_) result(is_open_)

checks if a channel/level is energetically accessible (open) by comparing energy with total_energy

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: energy_

level/channel energy

Return Value logical


Calls

proc~~is_open~~CallsGraph proc~is_open is_open proc~total_energy total_energy proc~is_open->proc~total_energy

Called by

proc~~is_open~~CalledByGraph proc~is_open is_open proc~save_open_basis_levels save_open_basis_levels proc~save_open_basis_levels->proc~is_open proc~print_channels print_channels proc~print_channels->proc~is_open proc~prepare_wavevector_array prepare_wavevector_array proc~prepare_wavevector_array->proc~is_open proc~calculate_k_matrix calculate_k_matrix proc~calculate_k_matrix->proc~is_open proc~calculate_largest_wavevector calculate_largest_wavevector proc~calculate_largest_wavevector->proc~is_open proc~count_open_basis_levels count_open_basis_levels proc~count_open_basis_levels->proc~is_open proc~count_open_channels_in_block count_open_channels_in_block proc~count_open_channels_in_block->proc~is_open program~scattering SCATTERING program~scattering->proc~save_open_basis_levels program~scattering->proc~print_channels program~scattering->proc~prepare_wavevector_array program~scattering->proc~calculate_k_matrix program~scattering->proc~calculate_largest_wavevector program~scattering->proc~count_open_basis_levels program~scattering->proc~count_open_channels_in_block

Contents

Source Code

is_open

Source Code

      function is_open(energy_) result(is_open_)
         !! checks if a channel/level is energetically accessible (open)
         !! by comparing energy with total_energy
         !---------------------------------------------------------------------!
         real(dp), intent(in) :: energy_
            !! level/channel energy
         logical :: is_open_
         !---------------------------------------------------------------------!
         is_open_ = ( energy_ <= total_energy() )
         !---------------------------------------------------------------------!
      end function is_open