psblas3:

base/modules/Makefile
 base/modules/psb_d_base_mat_mod.f03
 base/modules/psb_d_mat_mod.f03
 base/modules/psb_mat_mod.f03
 base/modules/psb_s_base_mat_mod.f03
 base/modules/psb_s_csr_mat_mod.f03
 base/modules/psb_s_mat_mod.f03
 base/serial/f03/Makefile
 base/serial/f03/psb_d_coo_impl.f03
 base/serial/f03/psb_d_csr_impl.f03
 base/serial/f03/psb_s_coo_impl.f03
 base/serial/f03/psb_s_csr_impl.f03
 base/serial/f03/psbn_d_coo_impl.f03
 base/serial/f03/psbn_d_csr_impl.f03

First step for serial single precision

base/modules/Makefile

@@ -7,8 +7,9 @@ UTIL_MODS = psb_string_mod.o psb_spmat_type.o \
 	psb_linmap_type_mod.o psb_comm_mod.o psb_psblas_mod.o \
 	psi_serial_mod.o psi_mod.o  psb_ip_reord_mod.o\
 	psb_check_mod.o psb_gps_mod.o psb_linmap_mod.o psb_hash_mod.o\
-	psb_base_mat_mod.o psb_d_base_mat_mod.o  psb_mat_mod.o\
-	psb_d_csr_mat_mod.o  psb_d_mat_mod.o
+	psb_base_mat_mod.o  psb_mat_mod.o\
+	psb_d_base_mat_mod.o psb_d_csr_mat_mod.o  psb_d_mat_mod.o \
+	psb_s_base_mat_mod.o psb_s_csr_mat_mod.o  psb_s_mat_mod.o 
 
 MODULES=$(BASIC_MODS) $(UTIL_MODS)
 
@@ -27,9 +28,10 @@ lib:  $(BASIC_MODS) blacsmod  $(UTIL_MODS)  $(OBJS)  $(LIBMOD)
 
 
 psb_base_mat_mod.o: psb_string_mod.o psb_sort_mod.o psb_ip_reord_mod.o psb_error_mod.o
-psb_d_base_mat_mod.o: psb_base_mat_mod.o
+psb_s_base_mat_mod.o psb_d_base_mat_mod.o: psb_base_mat_mod.o
+psb_s_mat_mod.o: psb_s_base_mat_mod.o  psb_s_csr_mat_mod.o
 psb_d_mat_mod.o: psb_d_base_mat_mod.o  psb_d_csr_mat_mod.o
-psb_mat_mod.o: psb_d_mat_mod.o
+psb_mat_mod.o: psb_d_mat_mod.o psb_s_mat_mod.o
 psb_realloc_mod.o : psb_error_mod.o 
 psb_spmat_type.o : psb_realloc_mod.o psb_error_mod.o psb_const_mod.o psb_string_mod.o psb_sort_mod.o
 psb_error_mod.o: psb_const_mod.o

base/modules/psb_d_base_mat_mod.f03

@@ -824,8 +824,8 @@ contains
     use psb_error_mod
     implicit none 
     class(psb_d_base_sparse_mat), intent(in) :: a
-    real(kind(1.d0)), intent(in)    :: alpha, beta, x(:)
-    real(kind(1.d0)), intent(inout) :: y(:)
+    real(psb_dpk_), intent(in)    :: alpha, beta, x(:)
+    real(psb_dpk_), intent(inout) :: y(:)
     integer, intent(out)            :: info
     character, optional, intent(in) :: trans
 

base/modules/psb_d_mat_mod.f03

@@ -1631,8 +1631,8 @@ contains
     use psb_error_mod
     implicit none 
     class(psb_d_sparse_mat), intent(in) :: a
-    real(kind(1.d0)), intent(in)    :: alpha, beta, x(:,:)
-    real(kind(1.d0)), intent(inout) :: y(:,:)
+    real(psb_dpk_), intent(in)    :: alpha, beta, x(:,:)
+    real(psb_dpk_), intent(inout) :: y(:,:)
     integer, intent(out)            :: info
     character, optional, intent(in) :: trans
     Integer :: err_act
@@ -1667,8 +1667,8 @@ contains
     use psb_error_mod
     implicit none 
     class(psb_d_sparse_mat), intent(in) :: a
-    real(kind(1.d0)), intent(in)    :: alpha, beta, x(:)
-    real(kind(1.d0)), intent(inout) :: y(:)
+    real(psb_dpk_), intent(in)    :: alpha, beta, x(:)
+    real(psb_dpk_), intent(inout) :: y(:)
     integer, intent(out)            :: info
     character, optional, intent(in) :: trans
     Integer :: err_act
@@ -1703,8 +1703,8 @@ contains
     use psb_error_mod
     implicit none 
     class(psb_d_sparse_mat), intent(in) :: a
-    real(kind(1.d0)), intent(in)    :: alpha, beta, x(:,:)
-    real(kind(1.d0)), intent(inout) :: y(:,:)
+    real(psb_dpk_), intent(in)    :: alpha, beta, x(:,:)
+    real(psb_dpk_), intent(inout) :: y(:,:)
     integer, intent(out)            :: info
     character, optional, intent(in) :: trans, side
     real(psb_dpk_), intent(in), optional :: d(:)
@@ -1741,8 +1741,8 @@ contains
     use psb_error_mod
     implicit none 
     class(psb_d_sparse_mat), intent(in) :: a
-    real(kind(1.d0)), intent(in)    :: alpha, beta, x(:)
-    real(kind(1.d0)), intent(inout) :: y(:)
+    real(psb_dpk_), intent(in)    :: alpha, beta, x(:)
+    real(psb_dpk_), intent(inout) :: y(:)
     integer, intent(out)            :: info
     character, optional, intent(in) :: trans, side
     real(psb_dpk_), intent(in), optional :: d(:)

base/modules/psb_mat_mod.f03

@@ -1,3 +1,4 @@
 module  psb_mat_mod
+  use psb_s_mat_mod
   use psb_d_mat_mod
 end module psb_mat_mod

base/serial/f03/Makefile

@@ -3,7 +3,7 @@ include ../../../Make.inc
 #
 # The object files
 #
-FOBJS =  psbn_d_csr_impl.o  psbn_d_coo_impl.o
+FOBJS =  psb_s_csr_impl.o  psb_s_coo_impl.o  psb_d_csr_impl.o  psb_d_coo_impl.o
 
 OBJS=$(FOBJS)
 

base/serial/f03/psb_d_coo_impl.f03

@@ -646,7 +646,7 @@ subroutine d_coo_csmv_impl(alpha,a,x,beta,y,info,trans)
 
   else if (tra) then 
 
-    if (alpha.eq.done) then
+    if (alpha == done) then
       i    = 1
       do i=1,nnz
         ir = a%ja(i)
@@ -654,7 +654,7 @@ subroutine d_coo_csmv_impl(alpha,a,x,beta,y,info,trans)
         y(ir) = y(ir) +  a%val(i)*x(jc)
       enddo
 
-    else if (alpha.eq.-done) then
+    else if (alpha == -done) then
 
       do i=1,nnz
         ir = a%ja(i)
@@ -811,7 +811,7 @@ subroutine d_coo_csmm_impl(alpha,a,x,beta,y,info,trans)
     end if
 
   else if (tra) then 
-    if (alpha.eq.done) then
+    if (alpha == done) then
       i    = 1
       do i=1,nnz
         ir = a%ja(i)
@@ -819,7 +819,7 @@ subroutine d_coo_csmm_impl(alpha,a,x,beta,y,info,trans)
         y(ir,1:nc) = y(ir,1:nc) +  a%val(i)*x(jc,1:nc)
       enddo
 
-    else if (alpha.eq.-done) then
+    else if (alpha == -done) then
 
       do i=1,nnz
         ir = a%ja(i)

base/serial/f03/psb_d_csr_impl.f03

@@ -254,7 +254,7 @@ contains
         end do
       end if
 
-      if (alpha.eq.done) then
+      if (alpha == done) then
 
         do i=1,n
           do j=irp(i), irp(i+1)-1
@@ -263,7 +263,7 @@ contains
           end do
         enddo
 
-      else if (alpha.eq.-done) then
+      else if (alpha == -done) then
 
         do i=1,n
           do j=irp(i), irp(i+1)-1
@@ -545,7 +545,7 @@ contains
       end do
     end if
 
-    if (alpha.eq.done) then
+    if (alpha == done) then
 
       do i=1,n
         do j=irp(i), irp(i+1)-1
@@ -554,7 +554,7 @@ contains
         end do
       enddo
 
-    else if (alpha.eq.-done) then
+    else if (alpha == -done) then
 
       do i=1,n
         do j=irp(i), irp(i+1)-1