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

fix corrgxy0_laue, again

This commit is contained in:
Satomichi Nishihara 2021-01-24 17:30:57 +09:00 committed by Minoru Otani
parent 3e5bb08208
commit c2b0f90c7d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Modules/corrgxy0_laue.f90
View File

@ -66,8 +66,8 @@ CONTAINS
!
SUBROUTINE extract_gxy0(ar, ag0)
IMPLICIT NONE
REAL(DP), INTENT(IN) :: ar(rismt%nr, 1:*)
REAL(DP), INTENT(OUT) :: ag0(rismt%nrzl, 1:*)
REAL(DP), INTENT(IN) :: ar(rismt%nr, 1:*)
REAL(DP), INTENT(INOUT) :: ag0(rismt%nrzl, 1:*)
!
INTEGER :: ir
INTEGER :: i1, i2, i3