psblas3:

base/serial/f03/psb_c_csr_impl.f03
 base/serial/f03/psb_d_csr_impl.f03
 base/serial/f03/psb_s_csr_impl.f03
 base/serial/f03/psb_z_csr_impl.f03

Changed cp_from/mv_from implementation. Still a lot to be done!

base/serial/f03/psb_c_csr_impl.f03

@@ -2119,7 +2119,10 @@ subroutine c_cp_csr_to_fmt_impl(a,b,info)
     call a%cp_to_coo(b,info)
 
   type is (psb_c_csr_sparse_mat) 
-    b = a
+    call b%psb_c_base_sparse_mat%cp_from(a%psb_c_base_sparse_mat)
+    b%irp = a%irp
+    b%ja  = a%ja
+    b%val = a%val
 
   class default
     call tmp%cp_from_fmt(a,info)

base/serial/f03/psb_d_csr_impl.f03

@@ -1927,7 +1927,10 @@ subroutine d_cp_csr_to_fmt_impl(a,b,info)
     call a%cp_to_coo(b,info)
 
   type is (psb_d_csr_sparse_mat) 
-    b = a
+    call b%psb_d_base_sparse_mat%cp_from(a%psb_d_base_sparse_mat)
+    b%irp = a%irp
+    b%ja  = a%ja
+    b%val = a%val
 
   class default
     call tmp%cp_from_fmt(a,info)

base/serial/f03/psb_s_csr_impl.f03

@@ -1938,7 +1938,10 @@ subroutine s_cp_csr_to_fmt_impl(a,b,info)
     call a%cp_to_coo(b,info)
 
   type is (psb_s_csr_sparse_mat) 
-    b = a
+    call b%psb_s_base_sparse_mat%cp_from(a%psb_s_base_sparse_mat)
+    b%irp = a%irp
+    b%ja  = a%ja
+    b%val = a%val
 
   class default
     call tmp%cp_from_fmt(a,info)

base/serial/f03/psb_z_csr_impl.f03

@@ -2119,7 +2119,10 @@ subroutine z_cp_csr_to_fmt_impl(a,b,info)
     call a%cp_to_coo(b,info)
 
   type is (psb_z_csr_sparse_mat) 
-    b = a
+    call b%psb_z_base_sparse_mat%cp_from(a%psb_z_base_sparse_mat)
+    b%irp = a%irp
+    b%ja  = a%ja
+    b%val = a%val
 
   class default
     call tmp%cp_from_fmt(a,info)