Prevent unknown mode error in ph.x

Switch lstop from false to true in find_mode_sym_new call RC2 v7.2 2024-2
schrodinger · Apr 19, 2024 · e33fa21 · e33fa21
1 parent c1380a6
commit e33fa21
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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