fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

csall changed in allocate with CSR format

Browse Source
implement-ainv
Cirdans-Home 4 years ago
parent c52d42a50d
commit f6c145f982
12 changed files with 1264 additions and 1264 deletions
Show Stats Download Patch File Download Diff File

4
prec/impl/psb_c_ilu0_fact.f90
Unescape Escape View File

@ -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

4
prec/impl/psb_c_iluk_fact.f90
Unescape Escape View File

@ -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

4
prec/impl/psb_c_ilut_fact.f90
Unescape Escape View File

@ -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

4
prec/impl/psb_d_ilu0_fact.f90
Unescape Escape View File

@ -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

4
prec/impl/psb_d_iluk_fact.f90
Unescape Escape View File

@ -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

4
prec/impl/psb_d_ilut_fact.f90
Unescape Escape View File

@ -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

4
prec/impl/psb_s_ilu0_fact.f90
Unescape Escape View File

@ -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

4
prec/impl/psb_s_iluk_fact.f90
Unescape Escape View File

@ -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

4
prec/impl/psb_s_ilut_fact.f90
Unescape Escape View File

@ -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

4
prec/impl/psb_z_ilu0_fact.f90
Unescape Escape View File

@ -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

4
prec/impl/psb_z_iluk_fact.f90
Unescape Escape View File

@ -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

4
prec/impl/psb_z_ilut_fact.f90
Unescape Escape View File

@ -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

Write Preview
Loading…
Cancel
Save