Commit a4b6929e authored by Matthias Redies's avatar Matthias Redies

introduce fleur inputtype to coulomb matirx

parent f4e3d509
......@@ -104,7 +104,7 @@ CONTAINS
if(mpi%irank == 0) then
CALL open_hybinp_io2(mpdata, fi%hybinp, hybdat, fi%input, fi%atoms, fi%sym%invs)
CALL coulombmatrix(mpi, fi%atoms, fi%kpts, fi%cell, fi%sym, mpdata, fi%hybinp, hybdat, xcpot)
CALL coulombmatrix(mpi, fi, mpdata, hybdat, xcpot)
call close_hybinp_io2()
endif
......
This diff is collapsed.
......@@ -380,7 +380,7 @@ SUBROUTINE rdmft(eig_id,mpi,fi,enpara,stars,&
CALL open_hybinp_io2(mpdata, fi%hybinp,hybdat,fi%input,fi%atoms,fi%sym%invs)
CALL coulombmatrix(mpi,fi%atoms,fi%kpts,fi%cell,fi%sym,mpdata,fi%hybinp,hybdat,xcpot)
CALL coulombmatrix(mpi, fi, mpdata, hybdat, xcpot)
CALL hf_init(eig_id,mpdata,fi,hybdat)
......
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