Commit 24fcf3ec authored by Matthias Redies's avatar Matthias Redies

remove another intent(out)

parent d9e552d3
......@@ -564,7 +564,7 @@ CONTAINS
REAL, INTENT(INOUT) :: vecout_r(:,:,:)
COMPLEX, INTENT(IN) :: vecin_c(:,:,:)
COMPLEX, INTENT(INOUT) :: vecout_c(:,:,:)
COMPLEX, INTENT(OUT) :: phase(:,:)
COMPLEX, INTENT(INOUT) :: phase(:,:)
! - local -
......@@ -583,6 +583,7 @@ CONTAINS
-maxval(hybinp%lcutm1):maxval(hybinp%lcutm1), 0:maxval(hybinp%lcutm1))
COMPLEX, ALLOCATABLE :: vecin1(:, :, :), vecout1(:, :, :)
phase = cmplx_0
call timestart("bra trafo")
allocate(vecin1(hybdat%nbasm(ikpt), nobd, nbands), &
......
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