psblas3:

base/modules/psi_penv_mod.F90 Undefined var caught by cray ftn.
13 years ago · f29011fa39
parent 26941924cc
commit f29011fa39
1 changed files with 7 additions and 0 deletions
--- 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