Commit 81a6005e authored by Matthias Redies's avatar Matthias Redies

fix last commits

parent 218ed9bf
......@@ -74,7 +74,7 @@ CONTAINS
IMPLICIT NONE
type(t_fleurinput), intent(in) :: fi
type(t_mat), intent(in) :: z_k, z_k_p
type(t_mat), intent(in) :: z_k
TYPE(t_results), INTENT(IN) :: results
TYPE(t_xcpot_inbuild), INTENT(IN) :: xcpot
TYPE(t_mpi), INTENT(IN) :: mpi
......@@ -97,6 +97,7 @@ CONTAINS
REAL, INTENT(IN) :: eig_irr(:, :)
REAL, INTENT(IN) :: wl_iks(:, :)
complex, intent(in) :: c_phase_k(hybdat%nbands(ik))
! local scalars
INTEGER :: iband, iband1, jq, iq
......
......@@ -130,7 +130,7 @@ CONTAINS
call z_k%init(olap%l_real, nbasfcn, fi%input%neig)
call read_z(fi%atoms, fi%cell, hybdat, fi%kpts, fi%sym, fi%noco, nococonv, fi%input, nk, jsp, z_k, &
c_phase=c_phase_k, parent_z=z_k_p)
c_phase=c_phase_k)
CALL timestart("symm_hf")
CALL symm_hf_init(fi%sym, fi%kpts, nk, nsymop, rrot, psym)
......
......@@ -526,7 +526,7 @@ SUBROUTINE rdmft(eig_id,mpi,fi,enpara,stars,&
rrot,nsymop,psym,nkpt_EIBZ,n_q,parent,pointer_EIBZ,nsest,indx_sest)
exMat%l_real=fi%sym%invs
CALL exchange_valence_hf(ikpt,fi,nkpt_EIBZ,mpdata,jspin,hybdat,lapw,&
CALL exchange_valence_hf(ikpt,fi,zMat, c_phase,nkpt_EIBZ,mpdata,jspin,hybdat,lapw,&
eig_irr,results,pointer_EIBZ,n_q,wl_iks,xcpot,nococonv,nsest,indx_sest,&
mpi,exMat)
CALL exchange_vccv1(ikpt,fi%input,fi%atoms,fi%cell, fi%kpts, fi%sym, fi%noco,nococonv, fi%oned,&
......
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