- missing #ifdef __MPI

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

Modules/ptoolkit.f90

@@ -3101,10 +3101,6 @@ END SUBROUTINE
     nr = desc( nlar_ )
     nc = desc( nlac_ )
 
-    ALLOCATE( B( ldx, ldx ) )
-    ALLOCATE( C( ldx, ldx ) )
-    ALLOCATE( BUF_RECV ( ldx, ldx ) )
-
     DO j = nc+1, ldx
        DO i = 1, ldx
           sll( i, j ) = ( 0.0_DP , 0.0_DP )
@@ -3132,6 +3128,12 @@ END SUBROUTINE
        buf_recv = sll
     END IF
 
+#if defined __MPI
+
+    ALLOCATE( B( ldx, ldx ) )
+    ALLOCATE( C( ldx, ldx ) )
+    ALLOCATE( BUF_RECV ( ldx, ldx ) )
+
     ! Broadcast the blocks along the diagonal at the processors under the diagonal
     IF( myrow >= mycol ) THEN
        CALL MPI_Comm_split( comm, mycol, myrow, col_comm, ierr )
@@ -3222,6 +3224,8 @@ END SUBROUTINE
     DEALLOCATE(C)
     DEALLOCATE(BUF_RECV)
 
+#endif
+
   CONTAINS
 
   INTEGER FUNCTION shift ( idref, id, pos, size, dir )