Commit 4601aaea authored by Daniel Wortmann's avatar Daniel Wortmann
Browse files

Merge branch 'develop' of fleur-git:fleur into develop

parents 7f919dd2 0d664403
......@@ -285,7 +285,7 @@ CONTAINS
CALL CPP_LAPACK_pdsygvx(1,'V','I','U',m,asca,1,1,desca,bsca,1,1, desca,&
desceigv,work2,-1,iwork,-1,ifail,iclustr, gap,ierr)
IF ( work2(1). GT .lwork2) THEN
IF ( work2(1).GT.lwork2) THEN
lwork2 = work2(1)
ALLOCATE ( work2(lwork2+20*m), stat=err ) ! Allocate even more in case of clusters
Supports Markdown
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