From c2a86201ed72693ffa50cc99b22f5d3365ae2c2b Mon Sep 17 00:00:00 2001
From: Eisuke Kawashima <2618741-e-kwsm@users.noreply.gitlab.com>
Date: Tue, 21 Jul 2020 10:23:29 +0900
Subject: [PATCH] Fix INTENT

---
 GWW/pw4gww/mp_wave_parallel.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/GWW/pw4gww/mp_wave_parallel.f90 b/GWW/pw4gww/mp_wave_parallel.f90
index 34122959d..b5e60bb65 100644
--- a/GWW/pw4gww/mp_wave_parallel.f90
+++ b/GWW/pw4gww/mp_wave_parallel.f90
@@ -282,7 +282,8 @@
       IMPLICIT NONE
 
       INTEGER, INTENT(in) :: npw1,npw2,nbands
-      COMPLEX(DP), INTENT(OUT) :: pw1(npw1,nbands),pw2(npw2,nbands)
+      COMPLEX(DP), INTENT(IN) :: pw1(npw1,nbands)
+      COMPLEX(DP), INTENT(OUT) :: pw2(npw2,nbands)
       INTEGER, INTENT(IN) :: mpime,  root, nproc
       INTEGER, INTENT(IN) :: comm    ! communicator
       INTEGER, INTENT(IN) :: ig_l2g1(ngwl1),ig_l2g2(ngwl2)