count_open_basis_levels Function

public function count_open_basis_levels() result(open_)

counts the energetically accessible levels in the basis

Arguments

None

Return Value integer(kind=int32)


Calls

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

Called by

proc~~count_open_basis_levels~~CalledByGraph proc~count_open_basis_levels count_open_basis_levels program~scattering SCATTERING program~scattering->proc~count_open_basis_levels

Contents

Variables

Source Code

count_open_basis_levels

Variables

Type Visibility Attributes Name Initial
integer(kind=int32), public :: level_index_1_

Source Code

      function count_open_basis_levels() result(open_)
         !! counts the energetically accessible levels in the basis
         !---------------------------------------------------------------------!
         integer(int32) :: open_, level_index_1_
         !---------------------------------------------------------------------!
         open_ = 0
         do level_index_1_ = 1, number_of_basis_levels
            if (is_open(internal_energies(level_index_1_))) open_ = open_ + 1
         enddo
         !---------------------------------------------------------------------!
      end function count_open_basis_levels