Commit d9315b8c authored by Matthias Redies's avatar Matthias Redies

new timers

parent e8aa9f6c
......@@ -197,11 +197,7 @@ SUBROUTINE exchange_valence_hf(nk,kpts,nkpt_EIBZ,sym,atoms,hybrid,cell,dimension
! the contribution of the Gamma-point is treated separately (see below)
! determine package size loop over the occupied bands
if (mat_ex%l_real) THEn
rdum = hybrid%maxbasm1*hybrid%nbands(nk)*4/1048576.
else
rdum = hybrid%maxbasm1*hybrid%nbands(nk)*4/1048576.
endif
rdum = hybrid%maxbasm1*hybrid%nbands(nk)*4/1048576.
psize = 1
DO iband = mnobd,1,-1
! ensure that the packages have equal size
......
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