psblas3

krylov/psb_cbicg.f90
 krylov/psb_ccgstab.f90
 krylov/psb_dbicg.f90
 krylov/psb_dcgstab.f90
 krylov/psb_sbicg.f90
 krylov/psb_zbicg.f90
 krylov/psb_zcgstab.f90
 test/fileread/runs/dfs.inp

Fix name of routine in log messages.

krylov/psb_cbicg.f90

@@ -131,7 +131,7 @@ subroutine psb_cbicg_vect(a,prec,b,x,eps,desc_a,info,&
   character(len=*), parameter :: methdname='BiCG'
 
   info = psb_success_
-  name = 'psb_bicg'
+  name = 'psb_cbicg'
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()

krylov/psb_ccgstab.f90

@@ -129,7 +129,7 @@ Subroutine psb_ccgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
   character(len=*), parameter :: methdname='BiCGStab'
 
   info = psb_success_
-  name = 'psb_scgstab'
+  name = 'psb_ccgstab'
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()

krylov/psb_dbicg.f90

@@ -131,7 +131,7 @@ subroutine psb_dbicg_vect(a,prec,b,x,eps,desc_a,info,&
   character(len=*), parameter :: methdname='BiCG'
 
   info = psb_success_
-  name = 'psb_bicg'
+  name = 'psb_dbicg'
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()

krylov/psb_dcgstab.f90

@@ -129,7 +129,7 @@ Subroutine psb_dcgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
   character(len=*), parameter :: methdname='BiCGStab'
 
   info = psb_success_
-  name = 'psb_scgstab'
+  name = 'psb_dcgstab'
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()

krylov/psb_sbicg.f90

@@ -131,7 +131,7 @@ subroutine psb_sbicg_vect(a,prec,b,x,eps,desc_a,info,&
   character(len=*), parameter :: methdname='BiCG'
 
   info = psb_success_
-  name = 'psb_bicg'
+  name = 'psb_sbicg'
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()

krylov/psb_zbicg.f90

@@ -131,7 +131,7 @@ subroutine psb_zbicg_vect(a,prec,b,x,eps,desc_a,info,&
   character(len=*), parameter :: methdname='BiCG'
 
   info = psb_success_
-  name = 'psb_bicg'
+  name = 'psb_zbicg'
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()

krylov/psb_zcgstab.f90

@@ -129,7 +129,7 @@ Subroutine psb_zcgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
   character(len=*), parameter :: methdname='BiCGStab'
 
   info = psb_success_
-  name = 'psb_scgstab'
+  name = 'psb_zcgstab'
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()