psblas3:

psb_serial_mod.f90

Silly bug in nrm1.

base/modules/psb_serial_mod.f90

@@ -539,26 +539,26 @@ contains
 
   elemental function psb_snrm1(x) result(res)
     real(psb_spk_), intent(in)  :: x
-    real(psb_spk_)              :: val
+    real(psb_spk_)              :: res
-    val = abs( x )
+    res = abs( x )
   end function psb_snrm1
 
   elemental function psb_dnrm1(x) result(res)
     real(psb_dpk_), intent(in) :: x
-    real(psb_dpk_)             :: val
+    real(psb_dpk_)             :: res
-    val = abs(  x )
+    res = abs(  x )
   end function psb_dnrm1
 
   elemental function psb_cnrm1(x) result(res)
     complex(psb_spk_), intent(in)  :: x
-    real(psb_spk_)                 :: val
+    real(psb_spk_)                 :: res
-    val = abs( real( x ) ) + abs( aimag( x ) )  
+    res = abs( real( x ) ) + abs( aimag( x ) )  
   end function psb_cnrm1
 
   elemental function psb_znrm1(x) result(res)
     complex(psb_dpk_), intent(in)  :: x
-    real(psb_dpk_)                 :: val
+    real(psb_dpk_)                 :: res
-    val = abs( real( x ) ) + abs( aimag( x ) )  
+    res = abs( real( x ) ) + abs( aimag( x ) )  
   end function psb_znrm1