atomic_basis_num_basis_functions Function

private pure function atomic_basis_num_basis_functions(self) result(nbf)

Get total number of basis functions for an atom

Type Bound

atomic_basis_type

Arguments

Type IntentOptional Attributes Name
class(atomic_basis_type), intent(in) :: self

Return Value integer


Calls

proc~~atomic_basis_num_basis_functions~~CallsGraph proc~atomic_basis_num_basis_functions atomic_basis_type%atomic_basis_num_basis_functions proc~cgto_num_basis_functions cgto_type%cgto_num_basis_functions proc~atomic_basis_num_basis_functions->proc~cgto_num_basis_functions

Called by

proc~~atomic_basis_num_basis_functions~~CalledByGraph proc~atomic_basis_num_basis_functions atomic_basis_type%atomic_basis_num_basis_functions proc~molecular_basis_num_basis_functions molecular_basis_type%molecular_basis_num_basis_functions proc~molecular_basis_num_basis_functions->proc~atomic_basis_num_basis_functions

Variables

Type Visibility Attributes Name Initial
integer, private :: ishell

Source Code

   pure function atomic_basis_num_basis_functions(self) result(nbf)
      !! Get total number of basis functions for an atom
      class(atomic_basis_type), intent(in) :: self
      integer :: nbf
      integer :: ishell

      nbf = 0
      do ishell = 1, self%nshells
         nbf = nbf + self%shells(ishell)%num_basis_functions()
      end do
   end function atomic_basis_num_basis_functions