Small changes. Do not search symmetry with a single mode calculation, and print

A symmetry for C1 group.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9315 c92efa57-630b-4861-b058-cf58834340f0

PHonon/PH/phq_readin.f90

@@ -319,6 +319,8 @@ SUBROUTINE phq_readin()
   END SELECT
 
   epsil = epsil .OR. lraman .OR. elop
+
+  IF (modenum /= 0) search_sym=.FALSE.
   
   if(elph_mat) then
      trans=.false.

PHonon/PH/phq_setup.f90

@@ -325,7 +325,7 @@ subroutine phq_setup
   !   by set_nscf, at gamma it coincides with the point group and we
   !   take nsymq=nsym
   !
-  IF (lgamma) THEN
+  IF (lgamma.AND.modenum==0) THEN
      nsymq=nsym
      minus_q=.TRUE.
   ENDIF

PHonon/PH/set_irr_nosym.f90

@@ -15,6 +15,8 @@ subroutine set_irr_nosym_new (u, npert, nirr)
   !
   USE kinds, only : DP
   USE ions_base, ONLY : nat
+  USE modes, ONLY : num_rap_mode, name_rap_mode
+  USE control_ph, ONLY : search_sym
   IMPLICIT NONE
   !
   INTEGER, INTENT(OUT) ::  npert (3 * nat), nirr
@@ -34,6 +36,12 @@ subroutine set_irr_nosym_new (u, npert, nirr)
   do imode = 1, 3 * nat
      u (imode, imode) = (1.d0, 0.d0)
   enddo
+  IF (search_sym) THEN
+     DO imode = 1, 3 * nat
+        num_rap_mode(imode)=1
+        name_rap_mode(imode)='A'
+     END DO
+  ENDIF
 
   return
 end subroutine set_irr_nosym_new