Commit ccc1f5fa authored by Matthias Redies's avatar Matthias Redies

fix commit

parent ea76b366
......@@ -267,7 +267,7 @@ CONTAINS
! the overlap matrix is diagonalized and those eigenvectors
! with a eigenvalue greater then mpbasis%linear_dep_tol are retained
call mpbasis%reduce_linear_dep()
call mpbasis%reduce_linear_dep(atoms, mpi, hybrid, l, itype, gridf)
END DO !l
IF (mpi%irank == 0) WRITE (6, '(6X,A,I7)') 'Total:', SUM(mpbasis%num_radbasfn(0:hybrid%lcutm1(itype), itype))
......
......@@ -18,6 +18,7 @@ module m_types_mpbasis
procedure :: filter_radbasfn => mpbasis_filter_radbasfn
procedure :: trafo_to_orthonorm_bas => mpbasis_trafo_to_orthonorm_bas
procedure :: add_l0_fun => mpbasis_add_l0_fun
procedure :: reduce_linear_dep => mpbasis_reduce_linear_dep
end type t_mpbasis
contains
function mpbasis_num_gpts(mpbasis)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment