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