scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'fix-INTENT' into 'develop' 

Fix INTENT

See merge request QEF/q-e!1037
This commit is contained in:
Pietro Delugas 2020-07-27 16:37:31 +00:00
parent 81d7c62fbb c2a86201ed
commit 3cdde2d15f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
GWW/pw4gww/mp_wave_parallel.f90
View File

@ -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)