- missing use of iverbosity

- xlf complains for expession like: if ( logical_val == .false. )


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

D3/bcast_d3_input.f90

@@ -20,6 +20,7 @@ subroutine bcast_d3_input
   use d3com
   use mp, only: mp_bcast
   use io_files, only: prefix, tmp_dir
+  use control_flags, only: iverbosity
 
   implicit none
   integer :: root = 0

Modules/read_namelists.f90

@@ -908,7 +908,7 @@ MODULE read_namelists_module
            CALL errore( sub_name, &
                        & ' invalid sic_epsilon, less than 0 ',-1)
 
-          IF ( force_pairing == .false.) &
+          IF ( .NOT. force_pairing ) &
            CALL errore( sub_name, &
                        & ' invalid force_pairing with sic activated', -1)
           IF ( nspin /= 2) &

PH/bcast_ph_input.f90

@@ -20,6 +20,8 @@ subroutine bcast_ph_input
   use phcom
   use mp, only: mp_bcast
   use io_files
+  USE control_flags, only: iverbosity
+  USE control_flags, ONLY : reduce_io
 
   implicit none
   integer :: root = 0