psblas3:

base/modules/psi_penv_mod.F90 Undefined var caught by cray ftn.
2026-10-20 04:42:08 +00:00 · 2012-01-10 10:24:03 +00:00
parent 26941924cc
commit f29011fa39
1 changed files with 7 additions and 0 deletions
@@ -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