Commit 5a170a11 authored by Matthias Redies's avatar Matthias Redies

intorduce fleur_inputtype to wavef_inv

parent fac25272
......@@ -196,9 +196,7 @@ CONTAINS
END IF
IF (mat_ex%l_real) THEN
CALL wavefproducts_inv(fi%input, jsp, fi%atoms, &
lapw, fi%kpts, mpi, ik, iq, hybdat, mpdata, fi%hybinp, fi%cell, fi%sym, &
fi%noco, nococonv, fi%oneD, nkqpt, cprod_vv_r)
CALL wavefproducts_inv(fi, jsp, lapw, mpi, ik, iq, hybdat, mpdata, nococonv, nkqpt, cprod_vv_r)
ELSE
CALL wavefproducts_noinv(ik, iq, fi%input, jsp, &
fi%cell, fi%atoms, mpdata, fi%hybinp, hybdat, fi%kpts, lapw, &
......
This diff is collapsed.
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