IffGit has a new shared runner for building Docker images in GitLab CI. Visit https://iffgit.fz-juelich.de/examples/ci-docker-in-docker for more details.

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

fix last commits

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