From 0c2f25bfe60e45224c40548b35d9df6f23b8e5ae Mon Sep 17 00:00:00 2001
From: Paolo Giannozzi
Date: Sat, 14 Sep 2024 16:36:39 +0200
Subject: [PATCH] Misspells
---
PHonon/PH/ahc.f90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/PHonon/PH/ahc.f90 b/PHonon/PH/ahc.f90
index f71757576..1eb4d9ce7 100644
--- a/PHonon/PH/ahc.f90
+++ b/PHonon/PH/ahc.f90
@@ -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)