diff --git a/cdn/cdnval.F90 b/cdn/cdnval.F90 index 9df57a47ed096c8a09344abb69b0c1499aa85dc7..29f54ae729c3e7f8e6ad01d4dfbbb3052561d1b4 100644 --- a/cdn/cdnval.F90 +++ b/cdn/cdnval.F90 @@ -94,8 +94,8 @@ SUBROUTINE cdnval(eig_id, mpi,kpts,jspin,noco,input,banddos,cell,atoms,enpara,st LOGICAL :: l_orbcomprot, l_real, l_dosNdir, l_corespec ! Local Arrays - REAL, ALLOCATABLE :: we(:) - REAL, ALLOCATABLE :: eig(:) + REAL :: we(MAXVAL(cdnvalJob%noccbd(:kpts%nkpt))) + REAL :: eig(MAXVAL(cdnvalJob%noccbd(:kpts%nkpt))) REAL, ALLOCATABLE :: f(:,:,:,:),g(:,:,:,:),flo(:,:,:,:) ! radial functions TYPE (t_lapw) :: lapw @@ -171,8 +171,7 @@ SUBROUTINE cdnval(eig_id, mpi,kpts,jspin,noco,input,banddos,cell,atoms,enpara,st skip_tt = dot_product(enpara%skiplo(:atoms%ntype,jspin),atoms%neq(:atoms%ntype)) IF (noco%l_soc.OR.noco%l_noco) skip_tt = 2 * skip_tt - ALLOCATE (we(MAXVAL(cdnvalJob%noccbd(:)))) - ALLOCATE (eig(MAXVAL(cdnvalJob%noccbd(:)))) + jsp = MERGE(1,jspin,noco%l_noco) DO ikpt = cdnvalJob%ikptStart, cdnvalJob%nkptExtended, cdnvalJob%ikptIncrement