diff --git a/base/modules/serial/psb_c_base_vect_mod.F90 b/base/modules/serial/psb_c_base_vect_mod.F90
index 1b285556..142add83 100644
--- a/base/modules/serial/psb_c_base_vect_mod.F90
+++ b/base/modules/serial/psb_c_base_vect_mod.F90
@@ -2796,7 +2796,7 @@ contains
     class(psb_c_base_vect_type), intent(inout) :: y
     integer(psb_ipk_), intent(in)           :: n
     complex(psb_spk_), allocatable   :: res(:)
-    complex(psb_spk_), external      :: cdot
+    complex(psb_spk_), external      :: cdotc
     integer(psb_ipk_) :: j,nc
 
     if (x%is_dev()) call x%sync()
@@ -2806,7 +2806,7 @@ contains
       nc = psb_size(x%v,2_psb_ipk_)
       allocate(res(nc))
       do j=1,nc
-        res(j) = cdot(n,x%v(:,j),1,y%v,1)
+        res(j) = cdotc(n,x%v(:,j),1,y%v,1)
       end do
     class default
       res = y%dot(n,x%v)
diff --git a/base/modules/serial/psb_z_base_vect_mod.F90 b/base/modules/serial/psb_z_base_vect_mod.F90
index b7981a37..0321ff77 100644
--- a/base/modules/serial/psb_z_base_vect_mod.F90
+++ b/base/modules/serial/psb_z_base_vect_mod.F90
@@ -2796,7 +2796,7 @@ contains
     class(psb_z_base_vect_type), intent(inout) :: y
     integer(psb_ipk_), intent(in)           :: n
     complex(psb_dpk_), allocatable   :: res(:)
-    complex(psb_dpk_), external      :: zdot
+    complex(psb_dpk_), external      :: zdotc
     integer(psb_ipk_) :: j,nc
 
     if (x%is_dev()) call x%sync()
@@ -2806,7 +2806,7 @@ contains
       nc = psb_size(x%v,2_psb_ipk_)
       allocate(res(nc))
       do j=1,nc
-        res(j) = zdot(n,x%v(:,j),1,y%v,1)
+        res(j) = zdotc(n,x%v(:,j),1,y%v,1)
       end do
     class default
       res = y%dot(n,x%v)