--- Initial_Electronic_Structure.F90.org 2015-02-19 15:45:36.194653178 +0900 +++ Initial_Electronic_Structure.F90 2015-02-19 15:45:55.554736434 +0900 @@ -638,6 +638,11 @@ if(flg_paw.and.ekmode/=OFF) call m_CD_rd_hsr(nfcntn_bin_paw) call read_efermi() +! === add initialization of EXX(). by raku 2015/2/19 =========================== + call m_ES_betar_dot_WFs(nfout) ! (fsrfsi) ->fsr_l + if(sw_hybrid_functional == ON) call EXX() +! ============================================================================== + call Renewal_of_Potential() if(sw_hubbard==ON) then call read_occ_mat() ! -> om