From b5fc64a6aaa09ccbbda6ce1041e568b6294b82f0 Mon Sep 17 00:00:00 2001
From: obm <obm@c92efa57-630b-4861-b058-cf58834340f0>
Date: Tue, 7 Jun 2011 20:55:20 +0000
Subject: [PATCH] Limited Scalapack support.

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@7838 c92efa57-630b-4861-b058-cf58834340f0
---
 TDDFPT/src/lr_readin.f90 | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/TDDFPT/src/lr_readin.f90 b/TDDFPT/src/lr_readin.f90
index 8393d02f6..50cd5b15f 100755
--- a/TDDFPT/src/lr_readin.f90
+++ b/TDDFPT/src/lr_readin.f90
@@ -20,7 +20,7 @@ SUBROUTINE lr_readin
   USE kinds,               ONLY : DP
   USE io_files,            ONLY : tmp_dir, prefix,trimcheck,wfc_dir
   USE lsda_mod,            ONLY : current_spin, nspin
-  USE control_flags,       ONLY : twfcollect
+  USE control_flags,       ONLY : twfcollect,use_para_diag
   USE scf,                 ONLY : vltot, v, vrs, vnew, &
                                    & destroy_scf_type
   USE grid_dimensions,     ONLY : nrxx
@@ -203,6 +203,9 @@ END SELECT
 
   DEALLOCATE( strf )
   CALL destroy_scf_type(vnew)
+  !
+  !
+  !
 
   !
   !
@@ -253,5 +256,15 @@ END SELECT
        CALL errore( ' iosys ', ' Linear response calculation ' // &
        & 'not implemented with symmetry', 1 )
   !
+  !
+  !Scalapack related stuff, 
+  !
+#ifdef __PARA
+  use_para_diag = .true.
+  CALL check_para_diag( nbnd )
+#else
+  use_para_diag = .FALSE.
+#endif
+
   RETURN
 END SUBROUTINE lr_readin