Commit 1995669f authored by Gregor Michalicek's avatar Gregor Michalicek

Add some unnecessary initializations in global/find_enpara.f90 to make valgrind happy

parent af10231d
......@@ -72,6 +72,8 @@ CONTAINS
ENDDO
rn = atoms%rmsh(1,n)*( d**(msh-1) )
ALLOCATE ( f(msh,2),vrd(msh) )
f = 0.0
vrd = 0.0
! extend core potential (linear with slope t1 / a.u.)
vrd(:atoms%jri(n))=vr(:atoms%jri(n))
t1=0.125
......@@ -189,6 +191,8 @@ CONTAINS
ENDDO
rn = atoms%rmsh(1,n)*( d**(msh-1) )
ALLOCATE ( f(msh,2),vrd(msh) )
f = 0.0
vrd = 0.0
! extend core potential (linear with slope t1 / a.u.)
vrd(:atoms%jri(n))=vr(:atoms%jri(n))
t1=0.125
......
  • This seems to become relevant if differ fails and writes out the array "a" in line 155.

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