Commit 5c61b459 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix for pulay.F90

parent b7660bb7
......@@ -39,7 +39,7 @@ CONTAINS
DO n=1,h_len
df(n)=fm(n+1)-fm(n)
ds(n)=sm(n+1)-sm(n)
mdf=df(n).apply_metric()
mdf=df(n)%apply_metric()
b(n)=mdf.dot.fm(h_len+1)
DO nn=1,n
a%data_r(n,nn)=mdf.dot.df(nn)
......
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