psblas3:

base/modules/psb_const_mod.F90
 base/modules/psb_error_mod.F90
 base/serial/f03/psb_c_base_mat_impl.f03
 base/serial/f03/psb_d_base_mat_impl.f03
 base/serial/f03/psb_s_base_mat_impl.f03
 base/serial/f03/psb_z_base_mat_impl.f03

New error: wrong dynamic type. Used in transpose method: you should
not transpose a REAL matrix onto a COMPLEX matrix. 
Hmmmm. At least, not for now......

base/modules/psb_const_mod.F90

@@ -170,6 +170,7 @@ module psb_const_mod
   integer, parameter, public :: psb_err_many_optional_arg_=583
   integer, parameter, public :: psb_err_spmat_invalid_state_=600
   integer, parameter, public :: psb_err_missing_override_method_=700
+  integer, parameter, public :: psb_err_invalid_dynamic_type_=701
   integer, parameter, public :: psb_err_invalid_mat_state_=1121
   integer, parameter, public :: psb_err_invalid_cd_state_=1122
   integer, parameter, public :: psb_err_invalid_a_and_cd_state_=1123

base/modules/psb_error_mod.F90

@@ -428,6 +428,9 @@ contains
       write(psb_err_unit,&
            & '("Base class method ",a," called: the class for ",a," is missing an overriding implementation")')&
            &  trim(r_name), trim(a_e_d)
+    case(psb_err_invalid_dynamic_type_)
+      write(psb_err_unit,'("input argument n. ",i0," has a dynamic type not allowed here.")')&
+           & i_e_d(1)
     case (psb_err_invalid_mat_state_)
       write(psb_err_unit,'("Invalid state for sparse matrix")')
     case (psb_err_invalid_cd_state_)

base/serial/f03/psb_c_base_mat_impl.f03

@@ -460,15 +460,15 @@ subroutine psb_c_base_transp_2mat(a,b)
 
   info = psb_success_
   select type(b)
-    class is (psb_c_base_sparse_mat)
+  class is (psb_c_base_sparse_mat)
     call b%cp_to_coo(tmp,info)
     if (info == psb_success_) call tmp%transp()
     if (info == psb_success_) call a%mv_from_coo(tmp,info)
-    class default
+  class default
-    info = psb_err_missing_override_method_
+    info = psb_err_invalid_dynamic_type_
   end select
   if (info /= psb_success_) then 
-    call psb_errpush(info,name,a_err=b%get_fmt())
+    call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/1,0,0,0,0/))
     goto 9999
   end if
   call psb_erractionrestore(err_act) 

base/serial/f03/psb_d_base_mat_impl.f03

@@ -460,15 +460,15 @@ subroutine psb_d_base_transp_2mat(a,b)
 
   info = psb_success_
   select type(b)
-    class is (psb_d_base_sparse_mat)
+  class is (psb_d_base_sparse_mat)
     call b%cp_to_coo(tmp,info)
     if (info == psb_success_) call tmp%transp()
     if (info == psb_success_) call a%mv_from_coo(tmp,info)
-    class default
+  class default
-    info = psb_err_missing_override_method_
+    info = psb_err_invalid_dynamic_type_
   end select
   if (info /= psb_success_) then 
-    call psb_errpush(info,name,a_err=b%get_fmt())
+    call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/1,0,0,0,0/))
     goto 9999
   end if
   call psb_erractionrestore(err_act) 

base/serial/f03/psb_s_base_mat_impl.f03

@@ -460,15 +460,15 @@ subroutine psb_s_base_transp_2mat(a,b)
 
   info = psb_success_
   select type(b)
-    class is (psb_s_base_sparse_mat)
+  class is (psb_s_base_sparse_mat)
     call b%cp_to_coo(tmp,info)
     if (info == psb_success_) call tmp%transp()
     if (info == psb_success_) call a%mv_from_coo(tmp,info)
-    class default
+  class default
-    info = psb_err_missing_override_method_
+    info = psb_err_invalid_dynamic_type_
   end select
   if (info /= psb_success_) then 
-    call psb_errpush(info,name,a_err=b%get_fmt())
+    call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/1,0,0,0,0/))
     goto 9999
   end if
   call psb_erractionrestore(err_act) 

base/serial/f03/psb_z_base_mat_impl.f03

@@ -460,15 +460,15 @@ subroutine psb_z_base_transp_2mat(a,b)
 
   info = psb_success_
   select type(b)
-    class is (psb_z_base_sparse_mat)
+  class is (psb_z_base_sparse_mat)
     call b%cp_to_coo(tmp,info)
     if (info == psb_success_) call tmp%transp()
     if (info == psb_success_) call a%mv_from_coo(tmp,info)
-    class default
+  class default
-    info = psb_err_missing_override_method_
+    info = psb_err_invalid_dynamic_type_
   end select
   if (info /= psb_success_) then 
-    call psb_errpush(info,name,a_err=b%get_fmt())
+    call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/1,0,0,0,0/))
     goto 9999
   end if
   call psb_erractionrestore(err_act)