Fix default error action.

2026-10-20 04:42:08 +00:00 · 2007-02-15 11:33:11 +00:00
parent c2dea5bce9
commit d665988606
1 changed files with 2 additions and 2 deletions
@@ -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)