From e33fa216ef4e3a3d10c54248d51195e747770ff1 Mon Sep 17 00:00:00 2001 From: Sasha Fonari Date: Fri, 19 Apr 2024 09:20:26 -0400 Subject: [PATCH] Prevent unknown mode error in ph.x Switch lstop from false to true in find_mode_sym_new call RC2 v7.2 2024-2 --- PHonon/PH/set_irr.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/PHonon/PH/set_irr.f90 b/PHonon/PH/set_irr.f90 index 4899e7bc2d..71df738fa8 100644 --- a/PHonon/PH/set_irr.f90 +++ b/PHonon/PH/set_irr.f90 @@ -137,7 +137,7 @@ subroutine set_irr_new (xq, u, npert, nirr, eigen) IF (search_sym.AND.nspin_mag/=4) THEN CALL find_mode_sym_new (u, eigen, tau, nat, nsymq, s, sr, irt, xq, & - rtau, amass, ntyp, ityp, 0, .FALSE., .TRUE., num_rap_mode, ierr) + rtau, amass, ntyp, ityp, 0, .FALSE., .FALSE., num_rap_mode, ierr) ! ! Order the modes so that we first make all those that belong to the first