From f29011fa39809efb8448205ce1fe853362868112 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 10 Jan 2012 10:24:03 +0000
Subject: [PATCH] psblas3:  base/modules/psi_penv_mod.F90

Undefined var caught by cray ftn.
---
 base/modules/psi_penv_mod.F90 | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/base/modules/psi_penv_mod.F90 b/base/modules/psi_penv_mod.F90
index 148c188b..633fc5df 100644
--- a/base/modules/psi_penv_mod.F90
+++ b/base/modules/psi_penv_mod.F90
@@ -441,6 +441,13 @@ contains
   end subroutine psi_i8amx_op
 
   subroutine psi_i8amn_op(inv, outv,len,type) 
+#ifdef MPI_MOD
+    use mpi
+#endif
+    implicit none 
+#ifdef MPI_H
+    include 'mpif.h'
+#endif
     integer(psb_long_int_k_) :: inv(*),outv(*)
     integer :: len,type
     integer :: i