From b1be41a3ede69ab041aeb105326d6f535459e24d Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 4 Nov 2011 16:33:35 +0000
Subject: [PATCH] psblas3: Fixed TRANSP intent.

---
 base/serial/impl/psb_c_mat_impl.F90 | 4 ++--
 base/serial/impl/psb_d_mat_impl.F90 | 4 ++--
 base/serial/impl/psb_s_mat_impl.F90 | 4 ++--
 base/serial/impl/psb_z_mat_impl.F90 | 4 ++--
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/base/serial/impl/psb_c_mat_impl.F90 b/base/serial/impl/psb_c_mat_impl.F90
index c691d4bc..478e5a18 100644
--- a/base/serial/impl/psb_c_mat_impl.F90
+++ b/base/serial/impl/psb_c_mat_impl.F90
@@ -1613,7 +1613,7 @@ subroutine psb_c_transp_2mat(a,b)
     info = psb_err_alloc_dealloc_
     goto 9999
   end if
-  call a%a%transp_2mat(b%a)    
+  call a%a%transp(b%a)    
 
   call psb_erractionrestore(err_act)
   return
@@ -1694,7 +1694,7 @@ subroutine psb_c_transc_2mat(a,b)
     info = psb_err_alloc_dealloc_
     goto 9999
   end if
-  call a%a%transc_2mat(b%a)    
+  call a%a%transc(b%a)    
 
   call psb_erractionrestore(err_act)
   return
diff --git a/base/serial/impl/psb_d_mat_impl.F90 b/base/serial/impl/psb_d_mat_impl.F90
index c7a78fd5..e4761be0 100644
--- a/base/serial/impl/psb_d_mat_impl.F90
+++ b/base/serial/impl/psb_d_mat_impl.F90
@@ -1612,7 +1612,7 @@ subroutine psb_d_transp_2mat(a,b)
     info = psb_err_alloc_dealloc_
     goto 9999
   end if
-  call a%a%transp_2mat(b%a)    
+  call a%a%transp(b%a)    
 
   call psb_erractionrestore(err_act)
   return
@@ -1693,7 +1693,7 @@ subroutine psb_d_transc_2mat(a,b)
     info = psb_err_alloc_dealloc_
     goto 9999
   end if
-  call a%a%transc_2mat(b%a)    
+  call a%a%transc(b%a)    
 
   call psb_erractionrestore(err_act)
   return
diff --git a/base/serial/impl/psb_s_mat_impl.F90 b/base/serial/impl/psb_s_mat_impl.F90
index 14ad0d1c..74ce13df 100644
--- a/base/serial/impl/psb_s_mat_impl.F90
+++ b/base/serial/impl/psb_s_mat_impl.F90
@@ -1611,7 +1611,7 @@ subroutine psb_s_transp_2mat(a,b)
     info = psb_err_alloc_dealloc_
     goto 9999
   end if
-  call a%a%transp_2mat(b%a)    
+  call a%a%transp(b%a)    
 
   call psb_erractionrestore(err_act)
   return
@@ -1692,7 +1692,7 @@ subroutine psb_s_transc_2mat(a,b)
     info = psb_err_alloc_dealloc_
     goto 9999
   end if
-  call a%a%transc_2mat(b%a)    
+  call a%a%transc(b%a)    
 
   call psb_erractionrestore(err_act)
   return
diff --git a/base/serial/impl/psb_z_mat_impl.F90 b/base/serial/impl/psb_z_mat_impl.F90
index e196d3f9..32b48707 100644
--- a/base/serial/impl/psb_z_mat_impl.F90
+++ b/base/serial/impl/psb_z_mat_impl.F90
@@ -1611,7 +1611,7 @@ subroutine psb_z_transp_2mat(a,b)
     info = psb_err_alloc_dealloc_
     goto 9999
   end if
-  call a%a%transp_2mat(b%a)    
+  call a%a%transp(b%a)    
 
   call psb_erractionrestore(err_act)
   return
@@ -1692,7 +1692,7 @@ subroutine psb_z_transc_2mat(a,b)
     info = psb_err_alloc_dealloc_
     goto 9999
   end if
-  call a%a%transc_2mat(b%a)    
+  call a%a%transc(b%a)    
 
   call psb_erractionrestore(err_act)
   return