psb_dallc.f90

psb_ialloc.f90 psb_zallc.f90 Fixed forgotten declaration of NR variable.
17 years ago · c66badc5f6
parent f24d39ec18
commit c66badc5f6
3 changed files with 3 additions and 3 deletions
--- a/base/tools/psb_dallc.f90
+++ b/base/tools/psb_dallc.f90
@ -196,7 +196,7 @@ subroutine psb_dallocv(x, desc_a,info,n)
  integer, optional, intent(in)   :: n

  !locals
-  integer             :: np,me,n_col,n_row,i,err_act
+  integer             :: np,me,nr,i,err_act
  integer             :: ictxt, int_err(5)
  integer              :: debug_level, debug_unit
  character(len=20)   :: name
--- a/base/tools/psb_ialloc.f90
+++ b/base/tools/psb_ialloc.f90
@ -195,7 +195,7 @@ subroutine psb_iallocv(x, desc_a, info,n)
  integer, optional, intent(in)     :: n

  !locals
-  integer             :: np,me,n_col,n_row,i,err_act
+  integer             :: np,me,nr,i,err_act
  integer             :: ictxt, int_err(5)
  integer              :: debug_level, debug_unit
  character(len=20)   :: name
--- a/base/tools/psb_zallc.f90
+++ b/base/tools/psb_zallc.f90
@ -195,7 +195,7 @@ subroutine psb_zallocv(x, desc_a,info,n)
  integer, optional, intent(in)   :: n

  !locals
-  integer             :: np,me,n_col,n_row,i,err_act
+  integer             :: np,me,nr,i,err_act
  integer             :: ictxt, int_err(5)
  integer              :: debug_level, debug_unit
  character(len=20)   :: name