psblas3:

psi_penv_mod.F90 Again uninitialized info...
13 years ago · 1bfbee84e3
parent 4f58c7f370
commit 1bfbee84e3
1 changed files with 2 additions and 1 deletions
--- a/base/modules/psi_penv_mod.F90
+++ b/base/modules/psi_penv_mod.F90
@ -109,7 +109,8 @@ contains
    include 'mpif.h'
 #endif
    integer(psb_mpik_) :: info
-
+    
+    info = 0
 #if defined(LONG_INTEGERS)
    psb_mpi_ipk_integer = mpi_integer8
 #else