ldisp=.true. and trans=.false. yield a rather obscure error message. Forced

trans to be .true. in ldisp is .true.


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

PHonon/PH/phq_readin.f90

@@ -178,7 +178,8 @@ SUBROUTINE phq_readin()
   CALL mp_bcast(title, ionode_id )
   !
   ! Rewind the input if the title is actually the beginning of inputph namelist
-  IF( imatches("&inputph", title)) THEN
+  !
+  IF( imatches("&inputph", title) ) THEN
     WRITE(*, '(6x,a)') "Title line not specified: using 'default'."
     title='default'
     IF (ionode) REWIND(5, iostat=ios)
@@ -207,8 +208,6 @@ SUBROUTINE phq_readin()
   zue          = .FALSE.
   fpol         = .FALSE.
   electron_phonon=' '
-!  elph         = .FALSE.
-!  elph_mat     = .FALSE.
   elph_nbnd_min = 1
   elph_nbnd_max = 0
   el_ph_sigma = 0.02
@@ -263,9 +262,8 @@ SUBROUTINE phq_readin()
   ! ...  reading the namelist inputph
   !
   IF (ionode) READ( 5, INPUTPH, IOSTAT = ios )
-
-  CALL mp_bcast(ios, ionode_id)
   !
+  CALL mp_bcast(ios, ionode_id)
   CALL errore( 'phq_readin', 'reading inputph namelist', ABS( ios ) )
   !
   IF (ionode) tmp_dir = trimcheck (outdir)
@@ -300,7 +298,9 @@ SUBROUTINE phq_readin()
 
   IF (modenum < 0) CALL errore ('phq_readin', ' Wrong modenum ', 1)
   IF (dek <= 0.d0) CALL errore ( 'phq_readin', ' Wrong dek ', 1)
+  !
   epsil = epsil .OR. lraman .OR. elop
+  trans = trans .OR. ldisp
   !
   ! Set default value for fildrho and fildvscf if they are required
   IF ( (lraman.OR.elop.OR.drho_star%open) .AND. fildrho == ' ') fildrho = 'drho'