Fix SYM handling at spmat level.

base/modules/serial/psb_c_mat_mod.F90

@@ -104,6 +104,7 @@ module psb_c_mat_mod
     procedure, pass(a) :: is_upper    => psb_c_is_upper
     procedure, pass(a) :: is_lower    => psb_c_is_lower
     procedure, pass(a) :: is_triangle => psb_c_is_triangle
+    procedure, pass(a) :: is_symmetric => psb_c_is_symmetric
     procedure, pass(a) :: is_unit     => psb_c_is_unit
     procedure, pass(a) :: is_repeatable_updates => psb_c_is_repeatable_updates
     procedure, pass(a) :: get_fmt     => psb_c_get_fmt
@@ -121,6 +122,7 @@ module psb_c_mat_mod
     procedure, pass(a) :: set_upper    => psb_c_set_upper
     procedure, pass(a) :: set_lower    => psb_c_set_lower
     procedure, pass(a) :: set_triangle => psb_c_set_triangle
+    procedure, pass(a) :: set_symmetric => psb_c_set_symmetric
     procedure, pass(a) :: set_unit     => psb_c_set_unit
     procedure, pass(a) :: set_repeatable_updates => psb_c_set_repeatable_updates
 
@@ -284,6 +286,7 @@ module psb_c_mat_mod
     procedure, pass(a) :: is_upper    => psb_lc_is_upper
     procedure, pass(a) :: is_lower    => psb_lc_is_lower
     procedure, pass(a) :: is_triangle => psb_lc_is_triangle
+    procedure, pass(a) :: is_symmetric => psb_lc_is_symmetric
     procedure, pass(a) :: is_unit     => psb_lc_is_unit
     procedure, pass(a) :: is_repeatable_updates => psb_lc_is_repeatable_updates
     procedure, pass(a) :: get_fmt     => psb_lc_get_fmt
@@ -301,6 +304,7 @@ module psb_c_mat_mod
     procedure, pass(a) :: set_upper    => psb_lc_set_upper
     procedure, pass(a) :: set_lower    => psb_lc_set_lower
     procedure, pass(a) :: set_triangle => psb_lc_set_triangle
+    procedure, pass(a) :: set_symmetric => psb_lc_set_symmetric
     procedure, pass(a) :: set_unit     => psb_lc_set_unit
     procedure, pass(a) :: set_repeatable_updates => psb_lc_set_repeatable_updates
 
@@ -509,6 +513,14 @@ module psb_c_mat_mod
     end subroutine psb_c_set_triangle
   end interface
   
+  interface 
+    subroutine psb_c_set_symmetric(a,val) 
+      import :: psb_ipk_, psb_cspmat_type
+      class(psb_cspmat_type), intent(inout) :: a
+      logical, intent(in), optional :: val
+    end subroutine psb_c_set_symmetric
+  end interface
+    
   interface 
     subroutine psb_c_set_unit(a,val) 
       import :: psb_ipk_, psb_lpk_, psb_cspmat_type
@@ -1215,6 +1227,14 @@ module psb_c_mat_mod
     end subroutine psb_lc_set_triangle
   end interface
   
+  interface 
+    subroutine psb_lc_set_symmetric(a,val) 
+      import :: psb_ipk_, psb_lcspmat_type
+      class(psb_lcspmat_type), intent(inout) :: a
+      logical, intent(in), optional :: val
+    end subroutine psb_lc_set_symmetric
+  end interface
+    
   interface 
     subroutine psb_lc_set_unit(a,val) 
       import :: psb_ipk_, psb_lpk_, psb_lcspmat_type
@@ -1873,6 +1893,19 @@ contains
 
   end function psb_c_is_triangle
 
+  function psb_c_is_symmetric(a) result(res)
+    implicit none 
+    class(psb_cspmat_type), intent(in) :: a
+    logical :: res
+
+    if (allocated(a%a)) then 
+      res = a%a%is_symmetric()
+    else
+      res = .false.
+    end if
+
+  end function psb_c_is_symmetric
+
   function psb_c_is_unit(a) result(res)
     implicit none 
     class(psb_cspmat_type), intent(in) :: a
@@ -2370,6 +2403,20 @@ contains
 
   end function psb_lc_is_triangle
 
+
+  function psb_lc_is_symmetric(a) result(res)
+    implicit none 
+    class(psb_lcspmat_type), intent(in) :: a
+    logical :: res
+
+    if (allocated(a%a)) then 
+      res = a%a%is_symmetric()
+    else
+      res = .false.
+    end if
+
+  end function psb_lc_is_symmetric
+
   function psb_lc_is_unit(a) result(res)
     implicit none 
     class(psb_lcspmat_type), intent(in) :: a

base/modules/serial/psb_d_mat_mod.F90

@@ -104,6 +104,7 @@ module psb_d_mat_mod
     procedure, pass(a) :: is_upper    => psb_d_is_upper
     procedure, pass(a) :: is_lower    => psb_d_is_lower
     procedure, pass(a) :: is_triangle => psb_d_is_triangle
+    procedure, pass(a) :: is_symmetric => psb_d_is_symmetric
     procedure, pass(a) :: is_unit     => psb_d_is_unit
     procedure, pass(a) :: is_repeatable_updates => psb_d_is_repeatable_updates
     procedure, pass(a) :: get_fmt     => psb_d_get_fmt
@@ -121,6 +122,7 @@ module psb_d_mat_mod
     procedure, pass(a) :: set_upper    => psb_d_set_upper
     procedure, pass(a) :: set_lower    => psb_d_set_lower
     procedure, pass(a) :: set_triangle => psb_d_set_triangle
+    procedure, pass(a) :: set_symmetric => psb_d_set_symmetric
     procedure, pass(a) :: set_unit     => psb_d_set_unit
     procedure, pass(a) :: set_repeatable_updates => psb_d_set_repeatable_updates
 
@@ -284,6 +286,7 @@ module psb_d_mat_mod
     procedure, pass(a) :: is_upper    => psb_ld_is_upper
     procedure, pass(a) :: is_lower    => psb_ld_is_lower
     procedure, pass(a) :: is_triangle => psb_ld_is_triangle
+    procedure, pass(a) :: is_symmetric => psb_ld_is_symmetric
     procedure, pass(a) :: is_unit     => psb_ld_is_unit
     procedure, pass(a) :: is_repeatable_updates => psb_ld_is_repeatable_updates
     procedure, pass(a) :: get_fmt     => psb_ld_get_fmt
@@ -301,6 +304,7 @@ module psb_d_mat_mod
     procedure, pass(a) :: set_upper    => psb_ld_set_upper
     procedure, pass(a) :: set_lower    => psb_ld_set_lower
     procedure, pass(a) :: set_triangle => psb_ld_set_triangle
+    procedure, pass(a) :: set_symmetric => psb_ld_set_symmetric
     procedure, pass(a) :: set_unit     => psb_ld_set_unit
     procedure, pass(a) :: set_repeatable_updates => psb_ld_set_repeatable_updates
 
@@ -509,6 +513,14 @@ module psb_d_mat_mod
     end subroutine psb_d_set_triangle
   end interface
   
+  interface 
+    subroutine psb_d_set_symmetric(a,val) 
+      import :: psb_ipk_, psb_dspmat_type
+      class(psb_dspmat_type), intent(inout) :: a
+      logical, intent(in), optional :: val
+    end subroutine psb_d_set_symmetric
+  end interface
+    
   interface 
     subroutine psb_d_set_unit(a,val) 
       import :: psb_ipk_, psb_lpk_, psb_dspmat_type
@@ -1215,6 +1227,14 @@ module psb_d_mat_mod
     end subroutine psb_ld_set_triangle
   end interface
   
+  interface 
+    subroutine psb_ld_set_symmetric(a,val) 
+      import :: psb_ipk_, psb_ldspmat_type
+      class(psb_ldspmat_type), intent(inout) :: a
+      logical, intent(in), optional :: val
+    end subroutine psb_ld_set_symmetric
+  end interface
+    
   interface 
     subroutine psb_ld_set_unit(a,val) 
       import :: psb_ipk_, psb_lpk_, psb_ldspmat_type
@@ -1873,6 +1893,19 @@ contains
 
   end function psb_d_is_triangle
 
+  function psb_d_is_symmetric(a) result(res)
+    implicit none 
+    class(psb_dspmat_type), intent(in) :: a
+    logical :: res
+
+    if (allocated(a%a)) then 
+      res = a%a%is_symmetric()
+    else
+      res = .false.
+    end if
+
+  end function psb_d_is_symmetric
+
   function psb_d_is_unit(a) result(res)
     implicit none 
     class(psb_dspmat_type), intent(in) :: a
@@ -2370,6 +2403,20 @@ contains
 
   end function psb_ld_is_triangle
 
+
+  function psb_ld_is_symmetric(a) result(res)
+    implicit none 
+    class(psb_ldspmat_type), intent(in) :: a
+    logical :: res
+
+    if (allocated(a%a)) then 
+      res = a%a%is_symmetric()
+    else
+      res = .false.
+    end if
+
+  end function psb_ld_is_symmetric
+
   function psb_ld_is_unit(a) result(res)
     implicit none 
     class(psb_ldspmat_type), intent(in) :: a

base/modules/serial/psb_s_mat_mod.F90

@@ -104,6 +104,7 @@ module psb_s_mat_mod
     procedure, pass(a) :: is_upper    => psb_s_is_upper
     procedure, pass(a) :: is_lower    => psb_s_is_lower
     procedure, pass(a) :: is_triangle => psb_s_is_triangle
+    procedure, pass(a) :: is_symmetric => psb_s_is_symmetric
     procedure, pass(a) :: is_unit     => psb_s_is_unit
     procedure, pass(a) :: is_repeatable_updates => psb_s_is_repeatable_updates
     procedure, pass(a) :: get_fmt     => psb_s_get_fmt
@@ -121,6 +122,7 @@ module psb_s_mat_mod
     procedure, pass(a) :: set_upper    => psb_s_set_upper
     procedure, pass(a) :: set_lower    => psb_s_set_lower
     procedure, pass(a) :: set_triangle => psb_s_set_triangle
+    procedure, pass(a) :: set_symmetric => psb_s_set_symmetric
     procedure, pass(a) :: set_unit     => psb_s_set_unit
     procedure, pass(a) :: set_repeatable_updates => psb_s_set_repeatable_updates
 
@@ -284,6 +286,7 @@ module psb_s_mat_mod
     procedure, pass(a) :: is_upper    => psb_ls_is_upper
     procedure, pass(a) :: is_lower    => psb_ls_is_lower
     procedure, pass(a) :: is_triangle => psb_ls_is_triangle
+    procedure, pass(a) :: is_symmetric => psb_ls_is_symmetric
     procedure, pass(a) :: is_unit     => psb_ls_is_unit
     procedure, pass(a) :: is_repeatable_updates => psb_ls_is_repeatable_updates
     procedure, pass(a) :: get_fmt     => psb_ls_get_fmt
@@ -301,6 +304,7 @@ module psb_s_mat_mod
     procedure, pass(a) :: set_upper    => psb_ls_set_upper
     procedure, pass(a) :: set_lower    => psb_ls_set_lower
     procedure, pass(a) :: set_triangle => psb_ls_set_triangle
+    procedure, pass(a) :: set_symmetric => psb_ls_set_symmetric
     procedure, pass(a) :: set_unit     => psb_ls_set_unit
     procedure, pass(a) :: set_repeatable_updates => psb_ls_set_repeatable_updates
 
@@ -509,6 +513,14 @@ module psb_s_mat_mod
     end subroutine psb_s_set_triangle
   end interface
   
+  interface 
+    subroutine psb_s_set_symmetric(a,val) 
+      import :: psb_ipk_, psb_sspmat_type
+      class(psb_sspmat_type), intent(inout) :: a
+      logical, intent(in), optional :: val
+    end subroutine psb_s_set_symmetric
+  end interface
+    
   interface 
     subroutine psb_s_set_unit(a,val) 
       import :: psb_ipk_, psb_lpk_, psb_sspmat_type
@@ -1215,6 +1227,14 @@ module psb_s_mat_mod
     end subroutine psb_ls_set_triangle
   end interface
   
+  interface 
+    subroutine psb_ls_set_symmetric(a,val) 
+      import :: psb_ipk_, psb_lsspmat_type
+      class(psb_lsspmat_type), intent(inout) :: a
+      logical, intent(in), optional :: val
+    end subroutine psb_ls_set_symmetric
+  end interface
+    
   interface 
     subroutine psb_ls_set_unit(a,val) 
       import :: psb_ipk_, psb_lpk_, psb_lsspmat_type
@@ -1873,6 +1893,19 @@ contains
 
   end function psb_s_is_triangle
 
+  function psb_s_is_symmetric(a) result(res)
+    implicit none 
+    class(psb_sspmat_type), intent(in) :: a
+    logical :: res
+
+    if (allocated(a%a)) then 
+      res = a%a%is_symmetric()
+    else
+      res = .false.
+    end if
+
+  end function psb_s_is_symmetric
+
   function psb_s_is_unit(a) result(res)
     implicit none 
     class(psb_sspmat_type), intent(in) :: a
@@ -2370,6 +2403,20 @@ contains
 
   end function psb_ls_is_triangle
 
+
+  function psb_ls_is_symmetric(a) result(res)
+    implicit none 
+    class(psb_lsspmat_type), intent(in) :: a
+    logical :: res
+
+    if (allocated(a%a)) then 
+      res = a%a%is_symmetric()
+    else
+      res = .false.
+    end if
+
+  end function psb_ls_is_symmetric
+
   function psb_ls_is_unit(a) result(res)
     implicit none 
     class(psb_lsspmat_type), intent(in) :: a

base/modules/serial/psb_z_mat_mod.F90

@@ -104,6 +104,7 @@ module psb_z_mat_mod
     procedure, pass(a) :: is_upper    => psb_z_is_upper
     procedure, pass(a) :: is_lower    => psb_z_is_lower
     procedure, pass(a) :: is_triangle => psb_z_is_triangle
+    procedure, pass(a) :: is_symmetric => psb_z_is_symmetric
     procedure, pass(a) :: is_unit     => psb_z_is_unit
     procedure, pass(a) :: is_repeatable_updates => psb_z_is_repeatable_updates
     procedure, pass(a) :: get_fmt     => psb_z_get_fmt
@@ -121,6 +122,7 @@ module psb_z_mat_mod
     procedure, pass(a) :: set_upper    => psb_z_set_upper
     procedure, pass(a) :: set_lower    => psb_z_set_lower
     procedure, pass(a) :: set_triangle => psb_z_set_triangle
+    procedure, pass(a) :: set_symmetric => psb_z_set_symmetric
     procedure, pass(a) :: set_unit     => psb_z_set_unit
     procedure, pass(a) :: set_repeatable_updates => psb_z_set_repeatable_updates
 
@@ -284,6 +286,7 @@ module psb_z_mat_mod
     procedure, pass(a) :: is_upper    => psb_lz_is_upper
     procedure, pass(a) :: is_lower    => psb_lz_is_lower
     procedure, pass(a) :: is_triangle => psb_lz_is_triangle
+    procedure, pass(a) :: is_symmetric => psb_lz_is_symmetric
     procedure, pass(a) :: is_unit     => psb_lz_is_unit
     procedure, pass(a) :: is_repeatable_updates => psb_lz_is_repeatable_updates
     procedure, pass(a) :: get_fmt     => psb_lz_get_fmt
@@ -301,6 +304,7 @@ module psb_z_mat_mod
     procedure, pass(a) :: set_upper    => psb_lz_set_upper
     procedure, pass(a) :: set_lower    => psb_lz_set_lower
     procedure, pass(a) :: set_triangle => psb_lz_set_triangle
+    procedure, pass(a) :: set_symmetric => psb_lz_set_symmetric
     procedure, pass(a) :: set_unit     => psb_lz_set_unit
     procedure, pass(a) :: set_repeatable_updates => psb_lz_set_repeatable_updates
 
@@ -509,6 +513,14 @@ module psb_z_mat_mod
     end subroutine psb_z_set_triangle
   end interface
   
+  interface 
+    subroutine psb_z_set_symmetric(a,val) 
+      import :: psb_ipk_, psb_zspmat_type
+      class(psb_zspmat_type), intent(inout) :: a
+      logical, intent(in), optional :: val
+    end subroutine psb_z_set_symmetric
+  end interface
+    
   interface 
     subroutine psb_z_set_unit(a,val) 
       import :: psb_ipk_, psb_lpk_, psb_zspmat_type
@@ -1215,6 +1227,14 @@ module psb_z_mat_mod
     end subroutine psb_lz_set_triangle
   end interface
   
+  interface 
+    subroutine psb_lz_set_symmetric(a,val) 
+      import :: psb_ipk_, psb_lzspmat_type
+      class(psb_lzspmat_type), intent(inout) :: a
+      logical, intent(in), optional :: val
+    end subroutine psb_lz_set_symmetric
+  end interface
+    
   interface 
     subroutine psb_lz_set_unit(a,val) 
       import :: psb_ipk_, psb_lpk_, psb_lzspmat_type
@@ -1873,6 +1893,19 @@ contains
 
   end function psb_z_is_triangle
 
+  function psb_z_is_symmetric(a) result(res)
+    implicit none 
+    class(psb_zspmat_type), intent(in) :: a
+    logical :: res
+
+    if (allocated(a%a)) then 
+      res = a%a%is_symmetric()
+    else
+      res = .false.
+    end if
+
+  end function psb_z_is_symmetric
+
   function psb_z_is_unit(a) result(res)
     implicit none 
     class(psb_zspmat_type), intent(in) :: a
@@ -2370,6 +2403,20 @@ contains
 
   end function psb_lz_is_triangle
 
+
+  function psb_lz_is_symmetric(a) result(res)
+    implicit none 
+    class(psb_lzspmat_type), intent(in) :: a
+    logical :: res
+
+    if (allocated(a%a)) then 
+      res = a%a%is_symmetric()
+    else
+      res = .false.
+    end if
+
+  end function psb_lz_is_symmetric
+
   function psb_lz_is_unit(a) result(res)
     implicit none 
     class(psb_lzspmat_type), intent(in) :: a