csrd has xt_tri.

base/modules/serial/psb_c_csr_mat_mod.f90

@@ -624,6 +624,7 @@ module psb_c_csr_mat_mod
     procedure, pass(a) :: trim        => psb_c_csrd_trim
     procedure, pass(a) :: free        => c_csrd_free
     procedure, pass(a) :: mold        => psb_c_csrd_mold
+    procedure, nopass  :: has_xt_tri  => c_csrd_has_xt_tri
 
   end type psb_c_csrd_sparse_mat
 
@@ -872,5 +873,16 @@ contains
 
   end subroutine c_csrd_free
 
+  !
+  !  has_xt_tri: does the current type support
+  !    extended triangle operations?  
+  !  
+  function c_csrd_has_xt_tri() result(res)
+    implicit none 
+    logical :: res
+    
+    res = .true.    
+  end function c_csrd_has_xt_tri
+
 
 end module psb_c_csr_mat_mod

base/modules/serial/psb_d_csr_mat_mod.f90

@@ -624,6 +624,7 @@ module psb_d_csr_mat_mod
     procedure, pass(a) :: trim        => psb_d_csrd_trim
     procedure, pass(a) :: free        => d_csrd_free
     procedure, pass(a) :: mold        => psb_d_csrd_mold
+    procedure, nopass  :: has_xt_tri  => d_csrd_has_xt_tri
 
   end type psb_d_csrd_sparse_mat
 
@@ -872,5 +873,16 @@ contains
 
   end subroutine d_csrd_free
 
+  !
+  !  has_xt_tri: does the current type support
+  !    extended triangle operations?  
+  !  
+  function d_csrd_has_xt_tri() result(res)
+    implicit none 
+    logical :: res
+    
+    res = .true.    
+  end function d_csrd_has_xt_tri
+
 
 end module psb_d_csr_mat_mod

base/modules/serial/psb_s_csr_mat_mod.f90

@@ -624,6 +624,7 @@ module psb_s_csr_mat_mod
     procedure, pass(a) :: trim        => psb_s_csrd_trim
     procedure, pass(a) :: free        => s_csrd_free
     procedure, pass(a) :: mold        => psb_s_csrd_mold
+    procedure, nopass  :: has_xt_tri  => s_csrd_has_xt_tri
 
   end type psb_s_csrd_sparse_mat
 
@@ -872,5 +873,16 @@ contains
 
   end subroutine s_csrd_free
 
+  !
+  !  has_xt_tri: does the current type support
+  !    extended triangle operations?  
+  !  
+  function s_csrd_has_xt_tri() result(res)
+    implicit none 
+    logical :: res
+    
+    res = .true.    
+  end function s_csrd_has_xt_tri
+
 
 end module psb_s_csr_mat_mod

base/modules/serial/psb_z_csr_mat_mod.f90

@@ -624,6 +624,7 @@ module psb_z_csr_mat_mod
     procedure, pass(a) :: trim        => psb_z_csrd_trim
     procedure, pass(a) :: free        => z_csrd_free
     procedure, pass(a) :: mold        => psb_z_csrd_mold
+    procedure, nopass  :: has_xt_tri  => z_csrd_has_xt_tri
 
   end type psb_z_csrd_sparse_mat
 
@@ -872,5 +873,16 @@ contains
 
   end subroutine z_csrd_free
 
+  !
+  !  has_xt_tri: does the current type support
+  !    extended triangle operations?  
+  !  
+  function z_csrd_has_xt_tri() result(res)
+    implicit none 
+    logical :: res
+    
+    res = .true.    
+  end function z_csrd_has_xt_tri
+
 
 end module psb_z_csr_mat_mod