Commit 62a43f25 authored by Matthias Redies's avatar Matthias Redies

fix last commits

parent 00245a03
......@@ -404,8 +404,9 @@ CONTAINS
hybrid%maxlmindx = 0
do itype = 1,atoms%ntype
hybrid%maxlmindx = max(hybrid%maxlmindx,
SUM([hybrid%num_radfun_per_l(l, itype)*(2*l + 1), l=0, atoms%lmax(itype)]))
hybrid%maxlmindx = max(hybrid%maxlmindx,&
SUM([(hybrid%num_radfun_per_l(l, itype)*(2*l + 1), l=0, atoms%lmax(itype))])&
)
enddo
END SUBROUTINE mixedbasis
......
......@@ -20,7 +20,6 @@ MODULE m_types_hybrid
INTEGER, ALLOCATABLE :: map(:,:)
INTEGER, ALLOCATABLE :: tvec(:,:,:)
INTEGER, ALLOCATABLE :: nbasm(:)
REAL :: tolerance1 !only read in
!REAL, ALLOCATABLE :: radbasfn_mt(:,:,:,:)
COMPLEX, ALLOCATABLE :: d_wgn2(:,:,:,:)
INTEGER, ALLOCATABLE :: ne_eig(:)
......
......@@ -239,7 +239,7 @@ contains
subroutine mpbasis_calc_olap_radbasfn(mpbasis, atoms, l, itype, gridf, olap)
USE m_intgrf, ONLY: intgrf
use m_types
use m_types_setup
implicit NONE
class(t_mpbasis), intent(in) :: mpbasis
type(t_atoms), intent(in) :: atoms
......
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