Commit f8fdca37 authored by Daniel Wortmann's avatar Daniel Wortmann

Added some initialization of variables to allow to run with strict compiler checks

parent bafd5fe1
......@@ -139,7 +139,8 @@ CONTAINS
WRITE (*,*) 'eigenvecs',err,' size: ',dimension%nbasfcn*ndim
CALL juDFT_error("eigen: Error during allocation of the eigenvecs",calledby ="eigen")
ENDIF
z=0.0
!l_wu selects a full diagonalization step or a direct call of aline with a subspace diagonalization only
IF (.NOT.l_wu) THEN
CALL timestart("Diagonalization")
......
......@@ -54,10 +54,10 @@ CONTAINS
REAL, INTENT (OUT) :: eig(neigd)
#ifdef CPP_INVERSION
REAL, INTENT (INOUT):: a(:),b(:)!(matsize)
REAL, INTENT (OUT) :: z(nbasfcn,neigd)
REAL, INTENT (INOUT) :: z(nbasfcn,neigd)
#else
COMPLEX, INTENT (INOUT):: a(:),b(:)
COMPLEX, INTENT (OUT) :: z(nbasfcn,neigd)
COMPLEX, INTENT (INOUT) :: z(nbasfcn,neigd)
#endif
! ..
! .. Local Scalars ..
......@@ -193,6 +193,7 @@ CONTAINS
ALLOCATE ( etemp(nbasfcn) )
addstate = gw.NE.0.AND.iu.LT.nsize ! add one state,
IF(addstate) iu = iu + 1 ! see below (CF)
zz=0.0
#ifdef CPP_INVERSION
IF(l_J)THEN
CALL CPP_LAPACK_sspevx('N','I','U',nsize,a,lb,ub,1,iu,toler,ne, etemp,zz,nbasfcn,work,iwork,ifail,info)
......
......@@ -73,6 +73,7 @@ CONTAINS
ALLOCATE ( largea(nsize,nsize), stat=err )
IF (err/=0) CALL juDFT_error("error allocating largea",calledby&
& ="geneigprobl")
largea=0.0
iind = 0
DO ind1 = 1, nsize
DO ind2 = 1, ind1
......@@ -88,6 +89,7 @@ CONTAINS
ALLOCATE ( largeb(nsize,nsize), stat=err )
IF (err/=0) CALL juDFT_error("error allocating largeb",calledby ="geneigprobl")
iind=0
largeb=0.0
DO ind1 = 1, nsize
DO ind2 = 1, ind1
iind = iind+1
......
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