csall changed in allocate with CSR format

prec/impl/psb_c_ilu0_fact.f90

@@ -164,10 +164,10 @@ subroutine psb_cilu0_fact(ialg,a,l,u,d,info,blck, upd)
     blck_ => blck
   else
     allocate(blck_,stat=info)
-    if (info == psb_success_) call blck_%csall(izero,izero,info,ione) 
+    if (info == psb_success_) call blck_%allocate(izero,izero,info,ione,type='CSR')
     if (info /= psb_success_) then
       info=psb_err_from_subroutine_
-      ch_err='csall'
+      ch_err='allocate'
       call psb_errpush(info,name,a_err=ch_err)
       goto 9999
     end if

prec/impl/psb_c_iluk_fact.f90

@@ -159,10 +159,10 @@ subroutine psb_ciluk_fact(fill_in,ialg,a,l,u,d,info,blck)
     blck_ => blck
   else
     allocate(blck_,stat=info)
-    if (info == psb_success_) call blck_%csall(izero,izero,info,ione) 
+    if (info == psb_success_) call blck_%allocate(izero,izero,info,ione,type='CSR') 
     if (info /= psb_success_) then
       info=psb_err_from_subroutine_
-      ch_err='csall'
+      ch_err='allocate'
       call psb_errpush(info,name,a_err=ch_err)
       goto 9999
     end if

prec/impl/psb_c_ilut_fact.f90

@@ -164,10 +164,10 @@ subroutine psb_cilut_fact(fill_in,thres,a,l,u,d,info,blck,iscale)
     blck_ => blck
   else
     allocate(blck_,stat=info)
-    if (info == psb_success_) call blck_%csall(izero,izero,info,ione) 
+    if (info == psb_success_) call blck_%allocate(izero,izero,info,ione,type='CSR')
     if (info /= psb_success_) then
       info=psb_err_from_subroutine_
-      ch_err='csall'
+      ch_err='allocate'
       call psb_errpush(info,name,a_err=ch_err)
       goto 9999
     end if

prec/impl/psb_d_ilu0_fact.f90

@@ -164,10 +164,10 @@ subroutine psb_dilu0_fact(ialg,a,l,u,d,info,blck, upd)
     blck_ => blck
   else
     allocate(blck_,stat=info)
-    if (info == psb_success_) call blck_%csall(izero,izero,info,ione) 
+    if (info == psb_success_) call blck_%allocate(izero,izero,info,ione,type='CSR')
     if (info /= psb_success_) then
       info=psb_err_from_subroutine_
-      ch_err='csall'
+      ch_err='allocate'
       call psb_errpush(info,name,a_err=ch_err)
       goto 9999
     end if

prec/impl/psb_d_iluk_fact.f90

@@ -159,10 +159,10 @@ subroutine psb_diluk_fact(fill_in,ialg,a,l,u,d,info,blck)
     blck_ => blck
   else
     allocate(blck_,stat=info)
-    if (info == psb_success_) call blck_%csall(izero,izero,info,ione) 
+    if (info == psb_success_) call blck_%allocate(izero,izero,info,ione,type='CSR') 
     if (info /= psb_success_) then
       info=psb_err_from_subroutine_
-      ch_err='csall'
+      ch_err='allocate'
       call psb_errpush(info,name,a_err=ch_err)
       goto 9999
     end if

prec/impl/psb_d_ilut_fact.f90

@@ -164,10 +164,10 @@ subroutine psb_dilut_fact(fill_in,thres,a,l,u,d,info,blck,iscale)
     blck_ => blck
   else
     allocate(blck_,stat=info)
-    if (info == psb_success_) call blck_%csall(izero,izero,info,ione) 
+    if (info == psb_success_) call blck_%allocate(izero,izero,info,ione,type='CSR')
     if (info /= psb_success_) then
       info=psb_err_from_subroutine_
-      ch_err='csall'
+      ch_err='allocate'
       call psb_errpush(info,name,a_err=ch_err)
       goto 9999
     end if

prec/impl/psb_s_ilu0_fact.f90

@@ -164,10 +164,10 @@ subroutine psb_silu0_fact(ialg,a,l,u,d,info,blck, upd)
     blck_ => blck
   else
     allocate(blck_,stat=info)
-    if (info == psb_success_) call blck_%csall(izero,izero,info,ione) 
+    if (info == psb_success_) call blck_%allocate(izero,izero,info,ione,type='CSR')
     if (info /= psb_success_) then
       info=psb_err_from_subroutine_
-      ch_err='csall'
+      ch_err='allocate'
       call psb_errpush(info,name,a_err=ch_err)
       goto 9999
     end if

prec/impl/psb_s_iluk_fact.f90

@@ -159,10 +159,10 @@ subroutine psb_siluk_fact(fill_in,ialg,a,l,u,d,info,blck)
     blck_ => blck
   else
     allocate(blck_,stat=info)
-    if (info == psb_success_) call blck_%csall(izero,izero,info,ione) 
+    if (info == psb_success_) call blck_%allocate(izero,izero,info,ione,type='CSR') 
     if (info /= psb_success_) then
       info=psb_err_from_subroutine_
-      ch_err='csall'
+      ch_err='allocate'
       call psb_errpush(info,name,a_err=ch_err)
       goto 9999
     end if

prec/impl/psb_s_ilut_fact.f90

@@ -164,10 +164,10 @@ subroutine psb_silut_fact(fill_in,thres,a,l,u,d,info,blck,iscale)
     blck_ => blck
   else
     allocate(blck_,stat=info)
-    if (info == psb_success_) call blck_%csall(izero,izero,info,ione) 
+    if (info == psb_success_) call blck_%allocate(izero,izero,info,ione,type='CSR')
     if (info /= psb_success_) then
       info=psb_err_from_subroutine_
-      ch_err='csall'
+      ch_err='allocate'
       call psb_errpush(info,name,a_err=ch_err)
       goto 9999
     end if

prec/impl/psb_z_ilu0_fact.f90

@@ -164,10 +164,10 @@ subroutine psb_zilu0_fact(ialg,a,l,u,d,info,blck, upd)
     blck_ => blck
   else
     allocate(blck_,stat=info)
-    if (info == psb_success_) call blck_%csall(izero,izero,info,ione) 
+    if (info == psb_success_) call blck_%allocate(izero,izero,info,ione,type='CSR')
     if (info /= psb_success_) then
       info=psb_err_from_subroutine_
-      ch_err='csall'
+      ch_err='allocate'
       call psb_errpush(info,name,a_err=ch_err)
       goto 9999
     end if

prec/impl/psb_z_iluk_fact.f90

@@ -159,10 +159,10 @@ subroutine psb_ziluk_fact(fill_in,ialg,a,l,u,d,info,blck)
     blck_ => blck
   else
     allocate(blck_,stat=info)
-    if (info == psb_success_) call blck_%csall(izero,izero,info,ione) 
+    if (info == psb_success_) call blck_%allocate(izero,izero,info,ione,type='CSR') 
     if (info /= psb_success_) then
       info=psb_err_from_subroutine_
-      ch_err='csall'
+      ch_err='allocate'
       call psb_errpush(info,name,a_err=ch_err)
       goto 9999
     end if

prec/impl/psb_z_ilut_fact.f90

@@ -164,10 +164,10 @@ subroutine psb_zilut_fact(fill_in,thres,a,l,u,d,info,blck,iscale)
     blck_ => blck
   else
     allocate(blck_,stat=info)
-    if (info == psb_success_) call blck_%csall(izero,izero,info,ione) 
+    if (info == psb_success_) call blck_%allocate(izero,izero,info,ione,type='CSR')
     if (info /= psb_success_) then
       info=psb_err_from_subroutine_
-      ch_err='csall'
+      ch_err='allocate'
       call psb_errpush(info,name,a_err=ch_err)
       goto 9999
     end if