Commit 56e16db3 authored by Matthias Redies's avatar Matthias Redies

sml is a parameter now. (as it should be)

parent 28d2636b
...@@ -26,12 +26,12 @@ CONTAINS ...@@ -26,12 +26,12 @@ CONTAINS
vlu,dvxu,dvyu,dvzu,dvxxu,dvyyu,dvzzu,dvyzu,dvzxu,dvxyu,& vlu,dvxu,dvyu,dvzu,dvxxu,dvyyu,dvzzu,dvyzu,dvzxu,dvxyu,&
vld,dvxd,dvyd,dvzd,dvxxd,dvyyd,dvzzd,dvyzd,dvzxd,dvxyd,& vld,dvxd,dvyd,dvzd,dvxxd,dvyyd,dvzzd,dvyzd,dvzxd,dvxyd,&
dagrxt,dagrxd,dagrxu,dagryt,dagryd,dagryu,dagrzt,dagrzd,& dagrxt,dagrxd,dagrxu,dagryt,dagryd,dagryu,dagrzt,dagrzd,&
dagrzu,dzdx,dzdy,dzdz,sml dagrzu,dzdx,dzdy,dzdz
REAL, PARAMETER :: sml = 1.e-14
INTEGER i,js,jspins,nsp INTEGER i,js,jspins,nsp
nsp=SIZE(dvx,1) nsp=SIZE(dvx,1)
jspins=SIZE(dvx,2) jspins=SIZE(dvx,2)
sml = 1.e-14
IF (ALLOCATED(grad%gr)) THEN IF (ALLOCATED(grad%gr)) THEN
! Gradients for libxc ! Gradients for libxc
......
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