Fixed silly bug in declaration of NRM2 and DOT.

pull/6/head
Salvatore Filippone 7 years ago
parent df94b86d93
commit d63202590d

@ -2056,7 +2056,7 @@ contains
complex(psb_spk_), intent(in) :: y(:,:) complex(psb_spk_), intent(in) :: y(:,:)
integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: n
complex(psb_spk_), allocatable :: res(:) complex(psb_spk_), allocatable :: res(:)
integer(psb_ipk_), external :: cdotc complex(psb_spk_), external :: cdotc
integer(psb_ipk_) :: j,nc integer(psb_ipk_) :: j,nc
if (x%is_dev()) call x%sync() if (x%is_dev()) call x%sync()
@ -2394,7 +2394,7 @@ contains
class(psb_c_base_multivect_type), intent(inout) :: x class(psb_c_base_multivect_type), intent(inout) :: x
integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: n
real(psb_spk_), allocatable :: res(:) real(psb_spk_), allocatable :: res(:)
integer(psb_ipk_), external :: scnrm2 real(psb_spk_), external :: scnrm2
integer(psb_ipk_) :: j, nc integer(psb_ipk_) :: j, nc
if (x%is_dev()) call x%sync() if (x%is_dev()) call x%sync()

@ -2056,7 +2056,7 @@ contains
real(psb_dpk_), intent(in) :: y(:,:) real(psb_dpk_), intent(in) :: y(:,:)
integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: n
real(psb_dpk_), allocatable :: res(:) real(psb_dpk_), allocatable :: res(:)
integer(psb_ipk_), external :: ddot real(psb_dpk_), external :: ddot
integer(psb_ipk_) :: j,nc integer(psb_ipk_) :: j,nc
if (x%is_dev()) call x%sync() if (x%is_dev()) call x%sync()
@ -2394,7 +2394,7 @@ contains
class(psb_d_base_multivect_type), intent(inout) :: x class(psb_d_base_multivect_type), intent(inout) :: x
integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: n
real(psb_dpk_), allocatable :: res(:) real(psb_dpk_), allocatable :: res(:)
integer(psb_ipk_), external :: dnrm2 real(psb_dpk_), external :: dnrm2
integer(psb_ipk_) :: j, nc integer(psb_ipk_) :: j, nc
if (x%is_dev()) call x%sync() if (x%is_dev()) call x%sync()

@ -2056,7 +2056,7 @@ contains
real(psb_spk_), intent(in) :: y(:,:) real(psb_spk_), intent(in) :: y(:,:)
integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: n
real(psb_spk_), allocatable :: res(:) real(psb_spk_), allocatable :: res(:)
integer(psb_ipk_), external :: sdot real(psb_spk_), external :: sdot
integer(psb_ipk_) :: j,nc integer(psb_ipk_) :: j,nc
if (x%is_dev()) call x%sync() if (x%is_dev()) call x%sync()
@ -2394,7 +2394,7 @@ contains
class(psb_s_base_multivect_type), intent(inout) :: x class(psb_s_base_multivect_type), intent(inout) :: x
integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: n
real(psb_spk_), allocatable :: res(:) real(psb_spk_), allocatable :: res(:)
integer(psb_ipk_), external :: snrm2 real(psb_spk_), external :: snrm2
integer(psb_ipk_) :: j, nc integer(psb_ipk_) :: j, nc
if (x%is_dev()) call x%sync() if (x%is_dev()) call x%sync()

@ -2056,7 +2056,7 @@ contains
complex(psb_dpk_), intent(in) :: y(:,:) complex(psb_dpk_), intent(in) :: y(:,:)
integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: n
complex(psb_dpk_), allocatable :: res(:) complex(psb_dpk_), allocatable :: res(:)
integer(psb_ipk_), external :: zdotc complex(psb_dpk_), external :: zdotc
integer(psb_ipk_) :: j,nc integer(psb_ipk_) :: j,nc
if (x%is_dev()) call x%sync() if (x%is_dev()) call x%sync()
@ -2394,7 +2394,7 @@ contains
class(psb_z_base_multivect_type), intent(inout) :: x class(psb_z_base_multivect_type), intent(inout) :: x
integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: n
real(psb_dpk_), allocatable :: res(:) real(psb_dpk_), allocatable :: res(:)
integer(psb_ipk_), external :: dznrm2 real(psb_dpk_), external :: dznrm2
integer(psb_ipk_) :: j, nc integer(psb_ipk_) :: j, nc
if (x%is_dev()) call x%sync() if (x%is_dev()) call x%sync()

Loading…
Cancel
Save