psblas3:

base/modules/Makefile
 base/serial/psi_c_serial_impl.f90
 base/serial/psi_d_serial_impl.f90
 base/serial/psi_i_serial_impl.f90
 base/serial/psi_s_serial_impl.f90

Fixed base/modules build order.
Fixed serial_impl: call correct version of AXPBY

base/modules/Makefile

@@ -144,6 +144,8 @@ psb_sort_mod.o: psb_i_sort_mod.o psb_s_sort_mod.o psb_d_sort_mod.o \
 psi_serial_mod.o:  psi_i_serial_mod.o \
 	psi_s_serial_mod.o psi_d_serial_mod.o psi_c_serial_mod.o psi_z_serial_mod.o 
 
+psi_i_serial_mod.o psi_s_serial_mod.o psi_d_serial_mod.o psi_c_serial_mod.o psi_z_serial_mod.o: psb_const_mod.o
+
 psb_base_mod.o: $(MODULES)
 
 psi_penv_mod.o: psi_penv_mod.F90 $(BASIC_MODS) 

base/serial/psi_c_serial_impl.f90

@@ -45,7 +45,7 @@ subroutine psi_caxpby(m,n,alpha, x, beta, y, info)
     goto 9999 
   end if
 
-  if ((m>0).and.(n>0)) call zaxpby(m,n,alpha,x,lx,beta,y,ly,info)
+  if ((m>0).and.(n>0)) call caxpby(m,n,alpha,x,lx,beta,y,ly,info)
 
   call psb_erractionrestore(err_act)
   return
@@ -96,7 +96,7 @@ subroutine psi_caxpbyv(m,alpha, x, beta, y, info)
     goto 9999 
   end if
 
-  if (m>0) call zaxpby(m,ione,alpha,x,lx,beta,y,ly,info)
+  if (m>0) call caxpby(m,ione,alpha,x,lx,beta,y,ly,info)
 
   call psb_erractionrestore(err_act)
   return

base/serial/psi_d_serial_impl.f90

@@ -45,7 +45,7 @@ subroutine psi_daxpby(m,n,alpha, x, beta, y, info)
     goto 9999 
   end if
 
-  if ((m>0).and.(n>0)) call zaxpby(m,n,alpha,x,lx,beta,y,ly,info)
+  if ((m>0).and.(n>0)) call daxpby(m,n,alpha,x,lx,beta,y,ly,info)
 
   call psb_erractionrestore(err_act)
   return
@@ -96,7 +96,7 @@ subroutine psi_daxpbyv(m,alpha, x, beta, y, info)
     goto 9999 
   end if
 
-  if (m>0) call zaxpby(m,ione,alpha,x,lx,beta,y,ly,info)
+  if (m>0) call daxpby(m,ione,alpha,x,lx,beta,y,ly,info)
 
   call psb_erractionrestore(err_act)
   return

base/serial/psi_i_serial_impl.f90

@@ -45,7 +45,7 @@ subroutine psi_iaxpby(m,n,alpha, x, beta, y, info)
     goto 9999 
   end if
 
-  if ((m>0).and.(n>0)) call zaxpby(m,n,alpha,x,lx,beta,y,ly,info)
+  if ((m>0).and.(n>0)) call iaxpby(m,n,alpha,x,lx,beta,y,ly,info)
 
   call psb_erractionrestore(err_act)
   return
@@ -96,7 +96,7 @@ subroutine psi_iaxpbyv(m,alpha, x, beta, y, info)
     goto 9999 
   end if
 
-  if (m>0) call zaxpby(m,ione,alpha,x,lx,beta,y,ly,info)
+  if (m>0) call iaxpby(m,ione,alpha,x,lx,beta,y,ly,info)
 
   call psb_erractionrestore(err_act)
   return

base/serial/psi_s_serial_impl.f90

@@ -45,7 +45,7 @@ subroutine psi_saxpby(m,n,alpha, x, beta, y, info)
     goto 9999 
   end if
 
-  if ((m>0).and.(n>0)) call zaxpby(m,n,alpha,x,lx,beta,y,ly,info)
+  if ((m>0).and.(n>0)) call saxpby(m,n,alpha,x,lx,beta,y,ly,info)
 
   call psb_erractionrestore(err_act)
   return
@@ -96,7 +96,7 @@ subroutine psi_saxpbyv(m,alpha, x, beta, y, info)
     goto 9999 
   end if
 
-  if (m>0) call zaxpby(m,ione,alpha,x,lx,beta,y,ly,info)
+  if (m>0) call saxpby(m,ione,alpha,x,lx,beta,y,ly,info)
 
   call psb_erractionrestore(err_act)
   return