Commit 64d75a00 authored by Matthias Redies's avatar Matthias Redies

cleanup

parent 9274219f
......@@ -24,7 +24,7 @@ CONTAINS
IMPLICIT NONE
REAL, INTENT(in) :: den_RS(:,:), EnergyDen_RS(:,:), vTot_RS(:,:)
REAL, INTENT(inout), allocatable :: kinEnergyDen_RS(:,:)
REAL, PARAMETER :: eps = 1e-15, factor = 1.0
REAL, PARAMETER :: eps = 1e-15
!implicit allocation
kinEnergyDen_RS = EnergyDen_RS - vTot_RS * den_RS
......@@ -33,9 +33,7 @@ CONTAINS
write (6,*) " lowest kinetic energy density cutoff = ", minval(kinEnergyDen_RS)
kinEnergyDen_RS = max(kinEnergyDen_RS, eps)
endif
write (*,*) "global factor = ", factor
kinEnergyDen_RS = kinEnergyDen_RS * factor
#else
USE m_juDFT_stop
CALL juDFT_error("MetaGGA require LibXC",hint="compile Fleur with LibXC (e.g. by giving '-external libxc' to ./configure")
......
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