Commit 68d1cd0e authored by Gregor Michalicek's avatar Gregor Michalicek

Add some RDMFT stuff

(a lot of debugging code included)
parent 4f8b3f45
This diff is collapsed.
This diff is collapsed.
......@@ -64,6 +64,7 @@ MODULE m_types_misc
TYPE(t_energy_hf) :: te_hfex
REAL :: te_hfex_loc(2)
REAL, ALLOCATABLE :: w_iks(:,:,:)
REAL, ALLOCATABLE :: w_iksRDMFT(:,:,:)
REAL, ALLOCATABLE :: eig(:,:,:)
INTEGER, ALLOCATABLE :: neig(:,:) ! neig(nkpts,jspins) number of calculated eigenvalues for each k point, spin
......@@ -167,6 +168,11 @@ CONTAINS
thisResults%neig = 0
thisResults%eig = 0.0
IF(input%l_rdmft) THEN
ALLOCATE (thisResults%w_iksRDMFT(neigd2,kpts%nkpt,input%jspins))
thisResults%w_iksRDMFT = 0.0
END IF
END SUBROUTINE results_init
END MODULE m_types_misc
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