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

Misspells

This commit is contained in:
Paolo Giannozzi 2024-09-14 16:36:39 +02:00
parent 6643cfdc85
commit 0c2f25bfe6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
PHonon/PH/ahc.f90
View File

@ -801,7 +801,7 @@ SUBROUTINE compute_psi_gauge(ik)
ENDDO
!
IF (ibnd /= ahc_nbnd + 1) CALL errore('compute_psi_gauge', &
'ibnd /= ahc_nbnd + 1 after loop over degenreate groups at first iq', 1)
'ibnd /= ahc_nbnd + 1 after loop over degenerate groups at first iq', 1)
!
ENDIF
!
@ -938,9 +938,9 @@ SUBROUTINE compute_psi_gauge(ik)
ENDDO ! igroup
!
IF (ibnd_ref /= ahc_nbnd + 1) CALL errore('compute_psi_gauge', &
'ibnd_ref /= ahc_nbnd + 1 after loop over degenreate groups', 1)
'ibnd_ref /= ahc_nbnd + 1 after loop over degenerate groups', 1)
IF (ibnd /= ahc_nbnd_gauge + 1) CALL errore('compute_psi_gauge', &
'ibnd /= ahc_nbnd_gauge + 1 after loop over degenreate groups', 1)
'ibnd /= ahc_nbnd_gauge + 1 after loop over degenerate groups', 1)
!
DEALLOCATE(gauge_mill)
DEALLOCATE(ndegen_list)