Fix default error action.

2026-10-17 03:12:15 +00:00 · 2007-02-14 11:04:30 +00:00
parent 8bdab1f1de
commit 4bbd34c3cd
1 changed files with 2 additions and 2 deletions
@@ -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