From c66badc5f635c12370a9b1a1c8f7878cd066d470 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 29 Jan 2008 09:28:03 +0000 Subject: [PATCH] psb_dallc.f90 psb_ialloc.f90 psb_zallc.f90 Fixed forgotten declaration of NR variable. --- base/tools/psb_dallc.f90 | 2 +- base/tools/psb_ialloc.f90 | 2 +- base/tools/psb_zallc.f90 | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/base/tools/psb_dallc.f90 b/base/tools/psb_dallc.f90 index f1f3bcdd..0fbccbb6 100644 --- 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 diff --git a/base/tools/psb_ialloc.f90 b/base/tools/psb_ialloc.f90 index 08df4f91..c7b77d47 100644 --- 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 diff --git a/base/tools/psb_zallc.f90 b/base/tools/psb_zallc.f90 index 1fa763f5..630b1e16 100644 --- 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