Fixes for LLVM compilation

ext/psb_c_ell_mat_mod.f90

@@ -94,6 +94,7 @@ module psb_c_ell_mat_mod
     procedure, pass(a) :: print        => psb_c_ell_print
     procedure, pass(a) :: free         => c_ell_free
     procedure, pass(a) :: mold         => psb_c_ell_mold
+    procedure, pass(a) :: get_nrm      => c_ell_get_nrm
 
   end type psb_c_ell_sparse_mat
 
@@ -459,6 +460,13 @@ contains
     res = 'ELL'
   end function c_ell_get_fmt
   
+  function c_ell_get_nrm(a) result(res)
+    implicit none 
+    class(psb_c_ell_sparse_mat), intent(in) :: a
+    integer(psb_ipk_) :: res
+    res = size(a%val,2)
+  end function c_ell_get_nrm
+  
   function c_ell_get_nzeros(a) result(res)
     implicit none 
     class(psb_c_ell_sparse_mat), intent(in) :: a

ext/psb_d_ell_mat_mod.f90

@@ -94,6 +94,7 @@ module psb_d_ell_mat_mod
     procedure, pass(a) :: print        => psb_d_ell_print
     procedure, pass(a) :: free         => d_ell_free
     procedure, pass(a) :: mold         => psb_d_ell_mold
+    procedure, pass(a) :: get_nrm      => d_ell_get_nrm
 
   end type psb_d_ell_sparse_mat
 
@@ -459,6 +460,13 @@ contains
     res = 'ELL'
   end function d_ell_get_fmt
   
+  function d_ell_get_nrm(a) result(res)
+    implicit none 
+    class(psb_d_ell_sparse_mat), intent(in) :: a
+    integer(psb_ipk_) :: res
+    res = size(a%val,2)
+  end function d_ell_get_nrm
+  
   function d_ell_get_nzeros(a) result(res)
     implicit none 
     class(psb_d_ell_sparse_mat), intent(in) :: a

ext/psb_s_ell_mat_mod.f90

@@ -94,6 +94,7 @@ module psb_s_ell_mat_mod
     procedure, pass(a) :: print        => psb_s_ell_print
     procedure, pass(a) :: free         => s_ell_free
     procedure, pass(a) :: mold         => psb_s_ell_mold
+    procedure, pass(a) :: get_nrm      => s_ell_get_nrm
 
   end type psb_s_ell_sparse_mat
 
@@ -459,6 +460,13 @@ contains
     res = 'ELL'
   end function s_ell_get_fmt
   
+  function s_ell_get_nrm(a) result(res)
+    implicit none 
+    class(psb_s_ell_sparse_mat), intent(in) :: a
+    integer(psb_ipk_) :: res
+    res = size(a%val,2)
+  end function s_ell_get_nrm
+  
   function s_ell_get_nzeros(a) result(res)
     implicit none 
     class(psb_s_ell_sparse_mat), intent(in) :: a

ext/psb_z_ell_mat_mod.f90

@@ -94,6 +94,7 @@ module psb_z_ell_mat_mod
     procedure, pass(a) :: print        => psb_z_ell_print
     procedure, pass(a) :: free         => z_ell_free
     procedure, pass(a) :: mold         => psb_z_ell_mold
+    procedure, pass(a) :: get_nrm      => z_ell_get_nrm
 
   end type psb_z_ell_sparse_mat
 
@@ -459,6 +460,13 @@ contains
     res = 'ELL'
   end function z_ell_get_fmt
   
+  function z_ell_get_nrm(a) result(res)
+    implicit none 
+    class(psb_z_ell_sparse_mat), intent(in) :: a
+    integer(psb_ipk_) :: res
+    res = size(a%val,2)
+  end function z_ell_get_nrm
+  
   function z_ell_get_nzeros(a) result(res)
     implicit none 
     class(psb_z_ell_sparse_mat), intent(in) :: a