Commit b2abfc3f authored by Daniel Wortmann's avatar Daniel Wortmann

Fix for ALLOCATE in gaunt. PGI compiler does not fully support F2008 features...

Fix for ALLOCATE in gaunt. PGI compiler does not fully support F2008 features of ALLOCATE with SOURCE.
parent 2b24cc0b
......@@ -69,8 +69,8 @@ CONTAINS
if (allocated(w)) return
!$ if (omp_in_parallel() .and. omp_get_num_threads() > 1) call juDFT_error("BUG IN GAUNT!!")
n = (3*lmaxd)/4+1
ALLOCATE(w(n), yr(n,(lmaxd+1)**2), source=0.0)
ALLOCATE(w(n), source=0.0)
ALLOCATE(yr(n,(lmaxd+1)**2), source=0.0)
lmaxdp = lmaxd
lmax1d = lmaxd+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