Fix default error action.

18 years ago · 4bbd34c3cd
parent 8bdab1f1de
commit 4bbd34c3cd
1 changed files with 2 additions and 2 deletions
--- 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