Fix error message.

7 years ago · e73e736188
parent 53766df273
commit e73e736188
4 changed files with 4 additions and 4 deletions
--- a/prec/impl/psb_cprecinit.f90
+++ b/prec/impl/psb_cprecinit.f90
@ -65,7 +65,7 @@ subroutine psb_cprecinit(ictxt,p,ptype,info)
  case default
    write(psb_err_unit,*) 'Unknown preconditioner type request "',ptype,'"'
-    info = psb_err_pivot_too_small_
+    info = psb_err_invalid_preca_
  end select
  if (info == psb_success_)  call p%prec%precinit(info)
--- a/prec/impl/psb_dprecinit.f90
+++ b/prec/impl/psb_dprecinit.f90
@ -65,7 +65,7 @@ subroutine psb_dprecinit(ictxt,p,ptype,info)
  case default
    write(psb_err_unit,*) 'Unknown preconditioner type request "',ptype,'"'
-    info = psb_err_pivot_too_small_
+    info = psb_err_invalid_preca_
  end select
  if (info == psb_success_)  call p%prec%precinit(info)
--- a/prec/impl/psb_sprecinit.f90
+++ b/prec/impl/psb_sprecinit.f90
@ -65,7 +65,7 @@ subroutine psb_sprecinit(ictxt,p,ptype,info)
  case default
    write(psb_err_unit,*) 'Unknown preconditioner type request "',ptype,'"'
-    info = psb_err_pivot_too_small_
+    info = psb_err_invalid_preca_
  end select
  if (info == psb_success_)  call p%prec%precinit(info)
--- a/prec/impl/psb_zprecinit.f90
+++ b/prec/impl/psb_zprecinit.f90
@ -65,7 +65,7 @@ subroutine psb_zprecinit(ictxt,p,ptype,info)
  case default
    write(psb_err_unit,*) 'Unknown preconditioner type request "',ptype,'"'
-    info = psb_err_pivot_too_small_
+    info = psb_err_invalid_preca_
  end select
  if (info == psb_success_)  call p%prec%precinit(info)