Commit 9c2ee045 authored by Matthias Redies's avatar Matthias Redies

remove intent(out) from wavefproducts

parent 24fcf3ec
......@@ -38,7 +38,7 @@ CONTAINS
INTEGER, INTENT(OUT) :: nkqpt
! - arrays -
REAL, INTENT(OUT) :: cprod(hybdat%maxbasm1, bandoi:bandof, bandf - bandi + 1)
REAL, INTENT(INOUT) :: cprod(hybdat%maxbasm1, bandoi:bandof, bandf - bandi + 1)
! - local scalars -
INTEGER :: g_t(3)
......@@ -46,6 +46,7 @@ CONTAINS
CALL timestart("wavefproducts_inv5")
cprod = 0.0
kqpthlp = kpts%bkf(:, nk) + kpts%bkf(:, iq)
! kqpt can lie outside the first BZ, transfer it back
kqpt = kpts%to_first_bz(kqpthlp)
......@@ -92,7 +93,7 @@ CONTAINS
INTEGER, INTENT(IN) :: nkqpt
! - arrays -
REAL, INTENT(OUT) :: cprod(hybdat%maxbasm1, bandoi:bandof, bandf - bandi + 1)
REAL, INTENT(INOUT) :: cprod(hybdat%maxbasm1, bandoi:bandof, bandf - bandi + 1)
! - local scalars -
INTEGER :: ic, ig, ig2, ig1, ok, igptm, iigptm
......
......@@ -8,6 +8,7 @@ CONTAINS
nkqpt, cprod)
USE m_types
use m_juDFT
use m_constants, only: cmplx_0
IMPLICIT NONE
TYPE(t_input), INTENT(IN) :: input
......@@ -29,13 +30,14 @@ CONTAINS
! - arrays -
COMPLEX, INTENT(OUT) :: cprod(hybdat%maxbasm1, bandoi:bandof, bandf - bandi + 1)
COMPLEX, INTENT(INOUT) :: cprod(hybdat%maxbasm1, bandoi:bandof, bandf - bandi + 1)
INTEGER :: g_t(3)
REAL :: kqpt(3), kqpthlp(3)
call timestart("wavefproducts_noinv5")
cprod = cmplx_0
! calculate nkpqt
kqpthlp = kpts%bkf(:,nk) + kpts%bkf(:,iq)
......@@ -86,7 +88,7 @@ CONTAINS
! - arrays -
COMPLEX, INTENT(OUT) :: cprod(hybdat%maxbasm1, bandoi:bandof, bandf - bandi + 1)
COMPLEX, INTENT(INOUT) :: cprod(hybdat%maxbasm1, bandoi:bandof, bandf - bandi + 1)
! - local scalars -
INTEGER :: ic, n1, n2
......
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