From d332fb2e995137f3de2163c7b80245ff0ec1bb21 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 13 Oct 2014 16:23:12 +0000 Subject: [PATCH] *** empty log message *** --- base/tools/psb_glob_to_loc.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/base/tools/psb_glob_to_loc.f90 b/base/tools/psb_glob_to_loc.f90 index 7a8a1a08..b2f3a353 100644 --- a/base/tools/psb_glob_to_loc.f90 +++ b/base/tools/psb_glob_to_loc.f90 @@ -224,12 +224,12 @@ subroutine psb_glob_to_loc1v(x,desc_a,info,iact,owned) call psb_erractionrestore(err_act) return case('W') - if ((info /= psb_success_).or.(count(x(1:n)<0) >0)) then + if ((info /= psb_success_).or.(count(x(:)<0) >0)) then write(psb_err_unit,'("Error ",i5," in subroutine glob_to_loc")') info end if case('A') - if ((info /= psb_success_).or.(count(x(1:n)<0) >0)) then - write(psb_err_unit,*) count(x(1:n)<0) + if ((info /= psb_success_).or.(count(x(:)<0) >0)) then + write(psb_err_unit,*) count(x(:)<0) call psb_errpush(info,name) goto 9999 end if