Fixed silly bug in declaration of NRM2 and DOT.

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

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

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

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