Commit 0304c478 authored by Gregor Michalicek's avatar Gregor Michalicek

Add an initialization in types/types_cdnval.f90

parent 415885af
......@@ -571,6 +571,7 @@ SUBROUTINE mcd_init1(thisMCD,banddos,dimension,input,atoms)
ALLOCATE (thisMCD%mcd(1,1,1))
ENDIF
thisMCD%ncore = 0
thisMCD%e_mcd = 0.0
thisMCD%mcd = 0.0
thisMCD%m_mcd = CMPLX(0.0,0.0)
......
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