psblas3:

Reworked CSR, take 1.

base/newserial/Makefile

@@ -1,7 +1,7 @@
 include ../../Make.inc
 
-MODULES = psbn_base_mat_mod.o psbn_d_base_mat_mod.o psbn_d_coo_impl.o  psbn_mat_mod.o
-#	psbn_csr_mat.o 
+MODULES = psbn_base_mat_mod.o psbn_d_base_mat_mod.o psbn_d_coo_impl.o  psbn_mat_mod.o\
+	psbn_csr_mat.o  psbn_d_csr_impl.o
 
 
 LIBMOD=
@@ -19,6 +19,7 @@ lib:  $(MODULES)  $(OBJS)  $(LIBMOD)
 psbn_mat_mod.o:	psbn_base_mat_mod.o
 psbn_coo_mat.o psbn_csr_mat.o:	psbn_d_base_mat_mod.o
 
+psbn_d_csr_impl.o: psbn_d_csr_mat_mod.o
 psbn_d_mat_impl.o: psbn_d_base_mat_mod.o
 
 clean:

base/newserial/psbn_d_base_mat_mod.f03

@@ -809,17 +809,7 @@ contains
     endif
 
     nz = max(7*m,7*n,1)
-      
-    if (info == 0) call psb_realloc(nz,a%ia,info)
-    if (info == 0) call psb_realloc(nz,a%ja,info)
-    if (info == 0) call psb_realloc(nz,a%val,info)
-    if (info == 0) then 
-      call a%set_nrows(m)
-      call a%set_ncols(n)
-      call a%set_nzeros(0)
-      call a%set_bld()
-      call a%set_triangle(.false.)
-    end if
+    call a%allocate(m,n,nz)
 
     call psb_erractionrestore(err_act)
     return