Commit 6c72d6c8 authored by Gregor Michalicek's avatar Gregor Michalicek

Small bugfix in hybrid/exchange_val_hf.F90

parent 4da6004b
...@@ -352,7 +352,7 @@ SUBROUTINE exchange_valence_hf(nk,kpts,nkpt_EIBZ,sym,atoms,hybrid,cell,dimension ...@@ -352,7 +352,7 @@ SUBROUTINE exchange_valence_hf(nk,kpts,nkpt_EIBZ,sym,atoms,hybrid,cell,dimension
IF (mat_ex%l_real) THEN IF (mat_ex%l_real) THEN
carr1_v_r(:n) = matvec( coulomb_r(:nn),cprod_vv_r(:n,iband,n1) ) carr1_v_r(:n) = matvec( coulomb_r(:nn),cprod_vv_r(:n,iband,n1) )
ELSE ELSE
carr1_v_r(:n) = matvec( coulomb_c(:nn),cprod_vv_c(:n,iband,n1) ) carr1_v_c(:n) = matvec( coulomb_c(:nn),cprod_vv_c(:n,iband,n1) )
END IF END IF
#endif #endif
......
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