Commit 9ebedd59 authored by Stefan Rost's avatar Stefan Rost

fix to qpw_nmt variable initialization

parent e8eca0dd
......@@ -133,6 +133,8 @@ CONTAINS
n1 = 1
DO in = 1 , nrm
n2 = mr(in)
bsl_r = 0.0
bsl_i = 0.0
DO j = 1,atoms%jri(n1)
cprr2 = cp*atoms%rmsh(j,n1)*atoms%rmsh(j,n1)
gr = stars%sk3(k)*atoms%rmsh(j,n1)
......
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