psblas3:

Fixed TRANSP intent.

base/modules/psb_base_mat_mod.f90

@@ -538,28 +538,38 @@ contains
   subroutine psb_base_transp_2mat(a,b)
     implicit none 
     
-    class(psb_base_sparse_mat), intent(out) :: a
+    class(psb_base_sparse_mat), intent(in)  :: a
-    class(psb_base_sparse_mat), intent(in)  :: b
+    class(psb_base_sparse_mat), intent(out) :: b
-    
+    
-    a%m         = b%n
+    b%m         = a%n
-    a%n         = b%m
+    b%n         = a%m
-    a%state     = b%state
+    b%state     = a%state
-    a%duplicate = b%duplicate
+    b%duplicate = a%duplicate
-    a%triangle  = b%triangle
+    b%triangle  = a%triangle
-    a%unitd     = b%unitd
+    b%unitd     = a%unitd
-    a%upper     = .not.b%upper
+    b%upper     = .not.a%upper
-    a%sorted    = .false.
+    b%sorted    = .false.
-    a%aux(:)    = b%aux(:)
+    b%aux(:)    = a%aux(:)
     
   end subroutine psb_base_transp_2mat
 
   subroutine psb_base_transc_2mat(a,b)
     implicit none 
     
-    class(psb_base_sparse_mat), intent(out) :: a
+    class(psb_base_sparse_mat), intent(in)  :: a
-    class(psb_base_sparse_mat), intent(in)   :: b
+    class(psb_base_sparse_mat), intent(out) :: b
+
+    
+    b%m         = a%n
+    b%n         = a%m
+    b%state     = a%state
+    b%duplicate = a%duplicate
+    b%triangle  = a%triangle
+    b%unitd     = a%unitd
+    b%upper     = .not.a%upper
+    b%sorted    = .false.
+    b%aux(:)    = a%aux(:)
 
-    call a%transp(b) 
   end subroutine psb_base_transc_2mat
 
   subroutine psb_base_transp_1mat(a)