Commit 882e3aaa authored by Daniel Wortmann's avatar Daniel Wortmann

Merge branch 'develop' of iffgit.fz-juelich.de:fleur/fleur into develop

parents 0c591891 bb20fec9
......@@ -193,7 +193,7 @@ CONTAINS
! Now for the lo's
DO ilo = 1, atoms%nlo(n)
l = atoms%llo(ilo,n)
IF( lo_done(ilo,n,jsp)) CALL priv_write(.TRUE.,l,n,jsp,enpara%qn_ello(ilo,n,jsp),elo_lo(l,n),elo_up(l,n),enpara%ello0(ilo,n,jsp))
IF( lo_done(ilo,n,jsp)) CALL priv_write(.TRUE.,l,n,jsp,enpara%qn_ello(ilo,n,jsp),elo_lo(ilo,n),elo_up(ilo,n),enpara%ello0(ilo,n,jsp))
END DO
END DO
ENDIF
......
......@@ -88,7 +88,7 @@ CONTAINS
INTRINSIC sqrt
! ..
if (allocated(w)) return
!$ if (omp_in_parallel()) call juDFT_error("BUG IN GAUNT!!")
!$ if (omp_in_parallel() .and. omp_get_num_threads() > 1) call juDFT_error("BUG IN GAUNT!!")
ALLOCATE(w((3*lmaxd)/4+1),yr((3*lmaxd)/4+1,(lmaxd+1)**2))
n = (3*lmaxd)/4+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