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

Incorrect MPI variable istatus, fixes #673

This commit is contained in:
Paolo Giannozzi 2024-04-02 10:12:10 +02:00
parent f66b71ef33
commit 4b894233a3
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
PHonon/PH/elphon.f90
View File

@ -1418,7 +1418,8 @@ SUBROUTINE elph_prt()
!
LOGICAL :: found
!
INTEGER :: ik, ikk, ikq, ibnd, jbnd, pbnd, nu, mu, vu, ierr, istatus
INTEGER :: ik, ikk, ikq, ibnd, jbnd, pbnd, nu, mu, vu, ierr
INTEGER :: istatus(MPI_STATUS_SIZE)
INTEGER :: nksq2, ikk2, ikq2, nkq2, ik1, ik2, ipert, jpert, n
!
REAL(DP), PARAMETER :: ryd2mev = rytoev * 1.0E3_DP