psblas3:

base/modules/psb_c_csc_mat_mod.f90
 base/modules/psb_c_csr_mat_mod.f90
 base/modules/psb_d_csc_mat_mod.f90
 base/modules/psb_d_csr_mat_mod.f90
 base/modules/psb_s_csc_mat_mod.f90
 base/modules/psb_s_csr_mat_mod.f90
 base/modules/psb_z_csc_mat_mod.f90
 base/modules/psb_z_csr_mat_mod.f90

Silly bug in get_size

base/modules/psb_c_csc_mat_mod.f90

@@ -551,14 +551,10 @@ contains
     class(psb_c_csc_sparse_mat), intent(in) :: a
     integer(psb_ipk_) :: res
 
-    res = 0
+    res = -1
     
     if (allocated(a%ia)) then 
-      if (res >= 0) then 
-        res = min(res,size(a%ia))
-      else 
-        res = size(a%ia)
-      end if
+      res = size(a%ia)
     end if
     if (allocated(a%val)) then 
       if (res >= 0) then 

base/modules/psb_c_csr_mat_mod.f90

@@ -554,14 +554,10 @@ contains
     class(psb_c_csr_sparse_mat), intent(in) :: a
     integer(psb_ipk_) :: res
 
-    res = 0
+    res = -1
     
     if (allocated(a%ja)) then 
-      if (res >= 0) then 
-        res = min(res,size(a%ja))
-      else 
-        res = size(a%ja)
-      end if
+      res = size(a%ja)
     end if
     if (allocated(a%val)) then 
       if (res >= 0) then 

base/modules/psb_d_csc_mat_mod.f90

@@ -551,14 +551,10 @@ contains
     class(psb_d_csc_sparse_mat), intent(in) :: a
     integer(psb_ipk_) :: res
 
-    res = 0
+    res = -1
     
     if (allocated(a%ia)) then 
-      if (res >= 0) then 
-        res = min(res,size(a%ia))
-      else 
-        res = size(a%ia)
-      end if
+      res = size(a%ia)
     end if
     if (allocated(a%val)) then 
       if (res >= 0) then 

base/modules/psb_d_csr_mat_mod.f90

@@ -554,14 +554,10 @@ contains
     class(psb_d_csr_sparse_mat), intent(in) :: a
     integer(psb_ipk_) :: res
 
-    res = 0
+    res = -1
     
     if (allocated(a%ja)) then 
-      if (res >= 0) then 
-        res = min(res,size(a%ja))
-      else 
-        res = size(a%ja)
-      end if
+      res = size(a%ja)
     end if
     if (allocated(a%val)) then 
       if (res >= 0) then 

base/modules/psb_s_csc_mat_mod.f90

@@ -551,14 +551,10 @@ contains
     class(psb_s_csc_sparse_mat), intent(in) :: a
     integer(psb_ipk_) :: res
 
-    res = 0
+    res = -1
     
     if (allocated(a%ia)) then 
-      if (res >= 0) then 
-        res = min(res,size(a%ia))
-      else 
-        res = size(a%ia)
-      end if
+      res = size(a%ia)
     end if
     if (allocated(a%val)) then 
       if (res >= 0) then 

base/modules/psb_s_csr_mat_mod.f90

@@ -554,14 +554,10 @@ contains
     class(psb_s_csr_sparse_mat), intent(in) :: a
     integer(psb_ipk_) :: res
 
-    res = 0
+    res = -1
     
     if (allocated(a%ja)) then 
-      if (res >= 0) then 
-        res = min(res,size(a%ja))
-      else 
-        res = size(a%ja)
-      end if
+      res = size(a%ja)
     end if
     if (allocated(a%val)) then 
       if (res >= 0) then 

base/modules/psb_z_csc_mat_mod.f90

@@ -551,14 +551,10 @@ contains
     class(psb_z_csc_sparse_mat), intent(in) :: a
     integer(psb_ipk_) :: res
 
-    res = 0
+    res = -1
     
     if (allocated(a%ia)) then 
-      if (res >= 0) then 
-        res = min(res,size(a%ia))
-      else 
-        res = size(a%ia)
-      end if
+      res = size(a%ia)
     end if
     if (allocated(a%val)) then 
       if (res >= 0) then 

base/modules/psb_z_csr_mat_mod.f90

@@ -554,14 +554,10 @@ contains
     class(psb_z_csr_sparse_mat), intent(in) :: a
     integer(psb_ipk_) :: res
 
-    res = 0
+    res = -1
     
     if (allocated(a%ja)) then 
-      if (res >= 0) then 
-        res = min(res,size(a%ja))
-      else 
-        res = size(a%ja)
-      end if
+      res = size(a%ja)
     end if
     if (allocated(a%val)) then 
       if (res >= 0) then