From afa77531ab7f82f46b8dd235ebd01b2175d72845 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 14 Mar 2018 12:26:56 +0000 Subject: [PATCH] Fixed silly bug in declaration of NRM2 and DOT. --- base/modules/serial/psb_c_base_vect_mod.f90 | 4 ++-- base/modules/serial/psb_d_base_vect_mod.f90 | 4 ++-- base/modules/serial/psb_s_base_vect_mod.f90 | 4 ++-- base/modules/serial/psb_z_base_vect_mod.f90 | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index 1176376c..2cb8a2b1 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -2105,7 +2105,7 @@ contains complex(psb_spk_), intent(in) :: y(:,:) integer(psb_ipk_), intent(in) :: n complex(psb_spk_), allocatable :: res(:) - integer(psb_ipk_), external :: cdotc + complex(psb_spk_), external :: cdotc integer(psb_ipk_) :: j,nc if (x%is_dev()) call x%sync() @@ -2443,7 +2443,7 @@ contains class(psb_c_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_), allocatable :: res(:) - integer(psb_ipk_), external :: scnrm2 + real(psb_spk_), external :: scnrm2 integer(psb_ipk_) :: j, nc if (x%is_dev()) call x%sync() diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index 61b38c8d..64ae381a 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -2105,7 +2105,7 @@ contains real(psb_dpk_), intent(in) :: y(:,:) integer(psb_ipk_), intent(in) :: n real(psb_dpk_), allocatable :: res(:) - integer(psb_ipk_), external :: ddot + real(psb_dpk_), external :: ddot integer(psb_ipk_) :: j,nc if (x%is_dev()) call x%sync() @@ -2443,7 +2443,7 @@ contains class(psb_d_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_), allocatable :: res(:) - integer(psb_ipk_), external :: dnrm2 + real(psb_dpk_), external :: dnrm2 integer(psb_ipk_) :: j, nc if (x%is_dev()) call x%sync() diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index 0e9ee727..bbbbbfd3 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -2105,7 +2105,7 @@ contains real(psb_spk_), intent(in) :: y(:,:) integer(psb_ipk_), intent(in) :: n real(psb_spk_), allocatable :: res(:) - integer(psb_ipk_), external :: sdot + real(psb_spk_), external :: sdot integer(psb_ipk_) :: j,nc if (x%is_dev()) call x%sync() @@ -2443,7 +2443,7 @@ contains class(psb_s_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_), allocatable :: res(:) - integer(psb_ipk_), external :: snrm2 + real(psb_spk_), external :: snrm2 integer(psb_ipk_) :: j, nc if (x%is_dev()) call x%sync() diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index 737cdc8c..dac164d4 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -2105,7 +2105,7 @@ contains complex(psb_dpk_), intent(in) :: y(:,:) integer(psb_ipk_), intent(in) :: n complex(psb_dpk_), allocatable :: res(:) - integer(psb_ipk_), external :: zdotc + complex(psb_dpk_), external :: zdotc integer(psb_ipk_) :: j,nc if (x%is_dev()) call x%sync() @@ -2443,7 +2443,7 @@ contains class(psb_z_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_), allocatable :: res(:) - integer(psb_ipk_), external :: dznrm2 + real(psb_dpk_), external :: dznrm2 integer(psb_ipk_) :: j, nc if (x%is_dev()) call x%sync()