Commit a4b6929e authored by Matthias Redies's avatar Matthias Redies

introduce fleur inputtype to coulomb matirx

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