Commit bafd5fe1 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix uninitalized variable

parent a7ff752f
......@@ -53,6 +53,7 @@ C .. Local Arrays ..
ev(nevk(nk)+1:neigd,nk) = 1.0e10
ENDDO
wpar(:,:,:,:) = 0.0
wparint=0.0
DO neig = 1,neigd
ecmax(neig) = -1.0e25
......
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