diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90
index c0722944..518b154a 100644
--- a/base/modules/serial/psb_c_base_vect_mod.f90
+++ b/base/modules/serial/psb_c_base_vect_mod.f90
@@ -2056,7 +2056,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()
@@ -2394,7 +2394,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 3fc046b2..96344633 100644
--- a/base/modules/serial/psb_d_base_vect_mod.f90
+++ b/base/modules/serial/psb_d_base_vect_mod.f90
@@ -2056,7 +2056,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()
@@ -2394,7 +2394,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 91890d93..62ba7c1e 100644
--- a/base/modules/serial/psb_s_base_vect_mod.f90
+++ b/base/modules/serial/psb_s_base_vect_mod.f90
@@ -2056,7 +2056,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()
@@ -2394,7 +2394,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 f80cb12e..ffccc9ab 100644
--- a/base/modules/serial/psb_z_base_vect_mod.f90
+++ b/base/modules/serial/psb_z_base_vect_mod.f90
@@ -2056,7 +2056,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()
@@ -2394,7 +2394,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()