Commit b9578501 authored by Robin Hilgers's avatar Robin Hilgers

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

parents 43a6c2fa 5255f24c
......@@ -1001,10 +1001,10 @@ CONTAINS
REAL, INTENT(IN) :: taual(:,:)
! array output
REAL, INTENT(OUT) :: potential(noGPts) ! Fourier transformed potential
COMPLEX, INTENT(OUT) :: muffintin(noGPts, maxindxm, & ! muffin-tin overlap integral
REAL, INTENT(INOUT) :: potential(noGPts) ! Fourier transformed potential
COMPLEX, INTENT(INOUT) :: muffintin(noGPts, maxindxm, & ! muffin-tin overlap integral
(maxlcutm + 1)**2, ntype, MAXVAL(neq))
COMPLEX, INTENT(OUT) :: interstitial(noGPts, gptmd) ! interstistial overlap intergral
COMPLEX, INTENT(INOUT) :: interstitial(noGPts, gptmd) ! interstistial overlap intergral
! private scalars
INTEGER :: cg, cg2, ci, cl, cn, cr ! counter variables
......@@ -1336,11 +1336,11 @@ CONTAINS
REAL, INTENT(IN) :: taual(:,:)
! array output
REAL, INTENT(OUT) :: potential(noGPts) ! Fourier transformed potential
REAL, INTENT(INOUT) :: potential(noGPts) ! Fourier transformed potential
#ifdef CPP_INVERSION
REAL, INTENT(OUT) :: fourier_trafo(nbasp, noGPts) !muffintin_out(nbasp,noGPts)
REAL, INTENT(INOUT) :: fourier_trafo(nbasp, noGPts) !muffintin_out(nbasp,noGPts)
#else
COMPLEX, INTENT(OUT) :: fourier_trafo(nbasp, noGPts) !muffintin_out(nbasp,noGPts)
COMPLEX, INTENT(INOUT) :: fourier_trafo(nbasp, noGPts) !muffintin_out(nbasp,noGPts)
#endif
! private scalars
......
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