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()