From a675cdd3163bf15ff7450ba733e3001f775c4b13 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Mon, 6 Nov 2006 15:47:26 +0000
Subject: [PATCH] *** empty log message ***

---
 src/modules/blacs_env.F90 | 53 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 src/modules/blacs_env.F90

diff --git a/src/modules/blacs_env.F90 b/src/modules/blacs_env.F90
new file mode 100644
index 00000000..5f85ea3c
--- /dev/null
+++ b/src/modules/blacs_env.F90
@@ -0,0 +1,53 @@
+subroutine psb_set_coher(ictxt,isvch)
+  integer :: ictxt, isvch
+  ! Ensure global coherence for convergence checks.
+#ifdef NORMAL
+  Call blacs_get(ictxt,16,isvch)
+  Call blacs_set(ictxt,16,1)
+#endif
+#ifdef HAVE_ESSL
+  ! Do nothing: ESSL does coherence by default,
+  ! and does not handle req=16 
+#endif
+end subroutine psb_set_coher
+subroutine psb_restore_coher(ictxt,isvch)
+  integer :: ictxt, isvch
+  ! Ensure global coherence for convergence checks.
+#ifdef NORMAL
+  Call blacs_set(ictxt,16,isvch)
+#endif
+#ifdef HAVE_ESSL
+  ! Do nothing: ESSL does coherence by default,
+  ! and does not handle req=16 
+#endif
+end subroutine psb_restore_coher
+subroutine psb_get_mpicomm(ictxt,comm)
+  integer :: ictxt, comm
+  call blacs_get(ictxt,10,comm)
+end subroutine psb_get_mpicomm
+subroutine psb_get_rank(rank,ictxt,id)
+  integer :: rank,ictxt, id
+  integer :: blacs_pnum
+  rank =  blacs_pnum(ictxt,id,0)
+end subroutine psb_get_rank
+
+#ifdef HAVE_ESSL
+!
+! Need these, as they are not in the ESSL implementation 
+! of the BLACS. 
+!
+integer function krecvid(contxt,proc_to_comm,myrow)
+  integer contxt,proc_to_comm,myrow
+  
+  krecvid=32766
+  
+  return
+end function krecvid
+integer function ksendid(contxt,proc_to_comm,myrow)
+  integer contxt,proc_to_comm,myrow
+
+  ksendid=32766
+
+  return
+end function ksendid
+#endif