Line data    Source code

       1             : module m_mtir_size
       2             :    implicit none
       3             : contains
       4             : 
       5         300 :    function mtir_size(fi, n_g, ikpt) result(isize)
       6             :       use m_types_fleurinput
       7             :       implicit none
       8             :       type(t_fleurinput), intent(in) :: fi
       9             :       integer, intent(in)            :: n_g(:), ikpt
      10             : 
      11             :       integer :: isize, itype, l
      12             : 
      13         300 :       isize = 0
      14         756 :       do itype = 1, fi%atoms%ntype
      15        3036 :          do l = 0, fi%hybinp%lcutm1(itype)
      16        2736 :             isize = isize + (2*l + 1)*fi%atoms%neq(itype)
      17             :          enddo
      18             :       enddo
      19             : 
      20         300 :       isize = isize + n_g(ikpt)
      21         300 :    end function mtir_size
      22             : end module m_mtir_size