[Q-e-developers] Changes in control_ph module (PH) generate a problem under GWW/head

[Filippo Spiga]

Dear QE developers,
	the commit number #8183 introduced some changes in the module control_ph [*]. These changes reflect in a compilation error of GWW/head [**]. I noticed this because when I align the GPU branch I usually rebuild all the package (make all). I am working with an updated copy of the trunk.  Is this normal?

Can someone more expert than me double-check this issue? (-:

Many thanks!

F.

[*]
Index: phcom.f90
===================================================================
--- phcom.f90	(revision 8158)
+++ phcom.f90	(revision 8183)
@@ -299,6 +299,7 @@
               time_now,          & ! CPU time up to now
               alpha_pv             ! the alpha value for shifting the bands
   CHARACTER(LEN=10)  :: where_rec='no_recover'! where the ph run recovered
+  CHARACTER(LEN=12) :: electron_phonon
   CHARACTER(LEN=256) :: flmixdpot, tmp_dir_ph, tmp_dir_phq
   CHARACTER(LEN=256)  :: dvscf_dir
   INTEGER :: rec_code,    &! code for recover
@@ -309,8 +310,6 @@
              epsil,       &! if .TRUE. computes dielec. const and eff. charges
              done_epsil=.FALSE.,  &! .TRUE. when diel. constant is available
              trans,       &! if .TRUE. computes phonons
-             elph,        &! if .TRUE. computes electron-ph interaction coeffs
-             elph_mat,    &! if .TRUE. eph coefficients for Wannier.
              zue,         &! if .TRUE. computes eff. charges as induced polarization
              done_zue=.FALSE., &! .TRUE. when the eff. charges are available
              zeu,         &! if .TRUE. computes eff. charges as induced forces


[**]
make[2]: Leaving directory `/home/fspiga/QE/espresso/GWW/pw4gww'
cd head ; make all
make[2]: Entering directory `/home/fspiga/QE/espresso/GWW/head'
test -n "" && ( cd ../.. ; make -w  || exit 1) || :
mpif90 -O2 -assume byterecl -g -traceback -par-report0 -vec-report0 -openmp -nomodule -fpp -D__INTEL -D__FFTW -D__MPI -D__PARA -D__OPENMP -I../../include -I../../iotk/src -I../../Modules -I../../PHonon/PH -I../../PW -I../pw4gww -I. -c head.f90
mpif90 -O2 -assume byterecl -g -traceback -par-report0 -vec-report0 -openmp -nomodule -fpp -D__INTEL -D__FFTW -D__MPI -D__PARA -D__OPENMP -I../../include -I../../iotk/src -I../../Modules -I../../PHonon/PH -I../../PW -I../pw4gww -I. -c bcast_ph_input.f90
bcast_ph_input.f90(24): error #6580: Name in only-list does not exist.   [ELPH]
                         ldisp, lnscf, elph, reduce_io, zue, epsil, trans, &
---------------------------------------^
bcast_ph_input.f90(51): error #6404: This name does not have a type, and must have an explicit type.   [ELPH]
  call mp_bcast (elph, ionode_id )
-----------------^
bcast_ph_input.f90(51): error #6285: There is no matching specific subroutine for this generic subroutine call.   [MP_BCAST]
  call mp_bcast (elph, ionode_id )
-------^
compilation aborted for bcast_ph_input.f90 (code 1)
make[2]: *** [bcast_ph_input.o] Error 1
make[2]: Leaving directory `/home/fspiga/QE/espresso/GWW/head'
make[1]: *** [heada] Error 2
make[1]: Leaving directory `/home/fspiga/QE/espresso/GWW'
make: *** [gww] Error 2


-- 
Mr. Filippo SPIGA, Computational Scientist, <filippo.spiga_at_ichec.ie>
Irish Centre for High-End Computing (ICHEC) - www.ichec.ie
The Tower - Trinity Technology & Enterprise Campus
Grand Canal Quay - Dublin 2 - Ireland

Tel: +353-1-5241608 ex. 40     ~  Mob: +353-85-816-8710
website: http://filippospiga.me  ~  skype: filippo.spiga

«Nobody will drive us out of Cantor's paradise.» ~ David Hilbert



-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.quantum-espresso.org/pipermail/developers/attachments/20111118/288c425a/attachment.html>