Added #ifdef's to prevent compilation errors in serial case - temporary

fix


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

Modules/blockedQR.f90

@@ -5,11 +5,11 @@ implicit none
 
 PRIVATE
 
-public :: qr_rank2_real
 
 real*8 dnrm2,ddot
 EXTERNAL dnrm2,dgemv,dscal,dger,daxpy,ddot
-
+#ifdef __ELPA
+public :: qr_rank2_real
 contains
 
 subroutine qr_rank2_real(a, lda, vmr, ldv, tmat, nbw, istep, cols, nblk, mpi_comm_rows, mpi_comm_cols, work, eps)
@@ -759,5 +759,5 @@ subroutine houseLeft_2rank_MPI_reversed(rows, cols, b, a, lda, hv, ldh, tauvalue
         enddo
    endif
 end subroutine houseLeft_2rank_MPI_reversed
-
+#endif
 end module blockedqr

Modules/elpa1.f90

@@ -13,6 +13,7 @@ module ELPA1
 
   PRIVATE ! By default, all routines contained are private
 
+#ifdef __ELPA
   ! The following routines are public:
 
   public :: get_elpa_row_col_comms     ! Sets MPI row/col communicators
@@ -41,7 +42,7 @@ module ELPA1
 
   public :: hh_transform_real
   public :: hh_transform_complex
-
+#endif
 !-------------------------------------------------------------------------------
 
   ! Timing results, set by every call to solve_evp_xxx
@@ -55,7 +56,7 @@ module ELPA1
   logical, public :: elpa_print_times = .false.
 
 !-------------------------------------------------------------------------------
-
+#ifdef __ELPA
   include 'mpif.h'
 
 contains
@@ -3878,9 +3879,9 @@ subroutine hh_transform_complex(alpha, xnorm_sq, xf, tau)
 end subroutine
 
 ! --------------------------------------------------------------------------------------------------
-
+#endif
 end module ELPA1
-
+#ifdef __ELPA
 ! --------------------------------------------------------------------------------------------------
 ! Please note that the following routines are outside of the module ELPA1
 ! so that they can be used with real or complex data
@@ -4090,3 +4091,4 @@ subroutine elpa_reduce_add_vectors(vmat_s,ld_s,comm_s,vmat_t,ld_t,comm_t,nvr,nvc
 end subroutine
 
 !-------------------------------------------------------------------------------
+#endif

Modules/elpa2.f90

@@ -17,6 +17,7 @@ module ELPA2
   PRIVATE ! By default, all routines contained are private
 
   ! The following routines are public:
+#ifdef __ELPA
 
   public :: solve_evp_real_2stage
   public :: solve_evp_complex_2stage
@@ -33,6 +34,7 @@ module ELPA2
   
   public :: band_band_real
   public :: divide_band
+#endif
   
 !-------------------------------------------------------------------------------  
 
@@ -52,7 +54,7 @@ module ELPA2
   complex*16, allocatable :: hh_trans_complex(:,:)
 
 !-------------------------------------------------------------------------------
-
+#ifdef __ELPA
   include 'mpif.h'
 
 
@@ -3950,4 +3952,5 @@ end subroutine
 
 ! --------------------------------------------------------------------------------------------------
 
+#endif
 end module ELPA2