From 4bbd34c3cdbfe5ede3a9e3e09750a059a75f0e02 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Wed, 14 Feb 2007 11:04:30 +0000
Subject: [PATCH] Fix default error action.

---
 base/tools/psb_glob_to_loc.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/base/tools/psb_glob_to_loc.f90 b/base/tools/psb_glob_to_loc.f90
index 502dcd5c..52ef6aa1 100644
--- a/base/tools/psb_glob_to_loc.f90
+++ b/base/tools/psb_glob_to_loc.f90
@@ -74,7 +74,7 @@ subroutine psb_glob_to_loc2(x,y,desc_a,info,iact,owned)
   if (present(iact)) then
     act=iact
   else
-    act='A'
+    act='I'
   endif
   act = toupper(act)
   if (present(owned)) then 
@@ -198,7 +198,7 @@ subroutine psb_glob_to_loc(x,desc_a,info,iact,owned)
   if (present(iact)) then
     act=iact
   else
-    act='A'
+    act='I'
   endif
   if (present(owned)) then 
     owned_=owned