From d665988606c6d147ec54565f344f58c7f2a6dc79 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 15 Feb 2007 11:33:11 +0000
Subject: [PATCH] Fix default error action.

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

diff --git a/base/tools/psb_loc_to_glob.f90 b/base/tools/psb_loc_to_glob.f90
index 8a4cfa00..5afc7d34 100644
--- a/base/tools/psb_loc_to_glob.f90
+++ b/base/tools/psb_loc_to_glob.f90
@@ -71,7 +71,7 @@ subroutine psb_loc_to_glob2(x,y,desc_a,info,iact)
   if (present(iact)) then
     act=iact
   else
-    act='A'
+    act='I'
   endif
   act=toupper(act)
 
@@ -196,7 +196,7 @@ subroutine psb_loc_to_glob(x,desc_a,info,iact)
   if (present(iact)) then
     act=iact
   else
-    act='A'
+    act='I'
   endif
   act = toupper(act)