fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
psb_serial_mod.f90

Silly bug in nrm1.
This commit is contained in:
Salvatore Filippone
2012-02-11 13:08:46 +00:00
parent b0e6f32827
commit 5c38432165
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_serial_mod.f90
+8 -8
View File
@@ -539,26 +539,26 @@ contains
elemental function psb_snrm1(x) result(res)
real(psb_spk_), intent(in) :: x
real(psb_spk_) :: val
val = abs( x )
real(psb_spk_) :: res
res = abs( x )
end function psb_snrm1
elemental function psb_dnrm1(x) result(res)
real(psb_dpk_), intent(in) :: x
real(psb_dpk_) :: val
val = abs( x )
real(psb_dpk_) :: res
res = abs( x )
end function psb_dnrm1
elemental function psb_cnrm1(x) result(res)
complex(psb_spk_), intent(in) :: x
real(psb_spk_) :: val
val = abs( real( x ) ) + abs( aimag( x ) )
real(psb_spk_) :: res
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
val = abs( real( x ) ) + abs( aimag( x ) )
real(psb_dpk_) :: res
res = abs( real( x ) ) + abs( aimag( x ) )
end function psb_znrm1