Fix default error action.

18 years ago · d665988606
parent c2dea5bce9
commit d665988606
1 changed files with 2 additions and 2 deletions
--- 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)