Commit 9bebcef4 authored by Gregor Michalicek's avatar Gregor Michalicek

Allocate dummy inDen%mmpMat when inDen%mmpMat is not needed.

...this is done to make gfortran with debug options happy.
parent e2d4123a
......@@ -253,6 +253,9 @@ CONTAINS
ALLOCATE (inDen%mmpMat(-lmaxU_const:lmaxU_const,-lmaxU_const:lmaxU_const,atoms%n_u,input%jspins))
CALL readDensityMatrix(input,atoms,inDen%mmpMat,l_error)
IF(l_error) CALL juDFT_error('Error in reading density matrix!',calledby='fleur')
ELSE
ALLOCATE (inDen%mmpMat(-lmaxU_const:-lmaxU_const,-lmaxU_const:-lmaxU_const,1,input%jspins))
inDen%mmpMat = CMPLX(0.0,0.0)
END IF
END IF
#ifdef CPP_MPI
......
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