Commit d6053353 authored by Gregor Michalicek's avatar Gregor Michalicek

Allocated some dummy arrays in cdn/cdnval

The dummy arrays are allocated to enable compilation with strict
compiler options enabled. I.e. -check uninit -check pointers for
ifort.

Also in this commit: Some cleanup in io/r_inpXML
parent 563dcde4
......@@ -439,6 +439,9 @@ CONTAINS
ALLOCATE ( orbcomp(dimension%neigd,23,atoms%natd) )
ALLOCATE ( qmtp(dimension%neigd,atoms%natd) )
IF (.NOT.input%film) qvac(:,:,:,jspin) = 0.0
ELSE
ALLOCATE(nmtsl(1,1),nslat(1,1),zsl(1,1),volsl(1),volintsl(1))
ALLOCATE(qintsl(1,1),qmtsl(1,1),orbcomp(1,1,1),qmtp(1,1))
END IF
!-q_sl
!
......
This diff is collapsed.
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