Compilation in serial case fixed

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

Modules/mp_wave.f90

@@ -1,17 +1,11 @@
 !
-! Copyright (C) 2002 FPMD group
+! Copyright (C) 2002-2008 Quantum-ESPRESSO group
 ! This file is distributed under the terms of the
 ! GNU General Public License. See the file `License'
 ! in the root directory of the present distribution,
 ! or http://www.gnu.org/copyleft/gpl.txt .
 !
 #include "f_defs.h"
-!
-! Copyright (C) 2002 CP90 group
-! This file is distributed under the terms of the
-! GNU General Public License. See the file `License'
-! in the root directory of the present distribution,
-! or http://www.gnu.org/copyleft/gpl.txt .
 !
     MODULE mp_wave
 
@@ -695,6 +689,7 @@ SUBROUTINE redistwf( c_dist_pw, c_dist_st, npw_p, nst_p, comm, idir )
    INTEGER, ALLOCATABLE :: sendcount(:),  sdispls(:)
    COMPLEX(DP), ALLOCATABLE :: ctmp( : )
 
+#ifdef __MPI
    CALL mpi_comm_rank( comm, mpime, ierr )
    IF( ierr /= 0 ) CALL errore( ' wf_redist ', ' mpi_comm_rank ', ierr )
    CALL mpi_comm_size( comm, nproc, ierr )
@@ -775,7 +770,7 @@ SUBROUTINE redistwf( c_dist_pw, c_dist_st, npw_p, nst_p, comm, idir )
 
    DEALLOCATE( ctmp )
    DEALLOCATE( rdispls, recvcount, sendcount, sdispls )
-
+#endif
    RETURN
 END SUBROUTINE redistwf
 

Modules/read_namelists.f90

@@ -1216,7 +1216,7 @@ MODULE read_namelists_module
        IF( etot_conv_thr < 0.0_DP ) &
           CALL errore( sub_name,' etot_conv_thr out of range ', 1 )
        IF( forc_conv_thr < 0.0_DP ) &
-          CALL errore( sub_name,' force_conv_thr out of range ', 1 )
+          CALL errore( sub_name,' forc_conv_thr out of range ', 1 )
        IF( prog == 'CP' ) THEN
           IF( dipfield ) &
              CALL infomsg( sub_name,' dipfield not yet implemented ')