*** empty log message ***

psblas3-type-indexed
Alfredo Buttari 19 years ago
parent f7d808813c
commit d283f6ffa8

@ -623,7 +623,6 @@ Subroutine psb_descasb(n_ovr,desc_p,desc_a,a,&
end if end if
! Ok, register into MATRIX_DATA & free temporary work areas ! Ok, register into MATRIX_DATA & free temporary work areas
write(0,*)'!!! verify this !!!'
desc_p%matrix_data(psb_dec_type_) = psb_desc_asb_ desc_p%matrix_data(psb_dec_type_) = psb_desc_asb_
allocate(desc_p%lprm(1)) allocate(desc_p%lprm(1))

@ -87,6 +87,7 @@ program pde90
character(len=10) :: ptype character(len=10) :: ptype
character(len=20) :: name,ch_err character(len=20) :: name,ch_err
if(psb_get_errstatus().ne.0) return
info=0 info=0
name='pde90' name='pde90'
call psb_set_errverbosity(2) call psb_set_errverbosity(2)
@ -152,8 +153,6 @@ program pde90
call psb_precset(pre,ptype,& call psb_precset(pre,ptype,&
&iv=(/add_ml_prec_,loc_aggr_,no_smth_,mat_repl_,& &iv=(/add_ml_prec_,loc_aggr_,no_smth_,mat_repl_,&
& pre_smooth_,igsmth/),rs=0.d0) & pre_smooth_,igsmth/),rs=0.d0)
!!$ call psb_precset(pre,ptype,&
!!$ &iv=(/add_ml_prec_,glb_aggr_,pre_smooth_,igsmth,matop/),rs=0.d0)
case(ras2lvm_) case(ras2lvm_)
ptype='asm' ptype='asm'
call psb_precset(pre,ptype,iv=(/novr,halo_,none_/)) call psb_precset(pre,ptype,iv=(/novr,halo_,none_/))
@ -164,7 +163,7 @@ program pde90
call blacs_barrier(icontxt,'ALL') call blacs_barrier(icontxt,'ALL')
t1 = mpi_wtime() t1 = mpi_wtime()
call psb_precbld(a,pre,desc_a,info)!,'f') call psb_precbld(a,pre,desc_a,info)
if(info.ne.0) then if(info.ne.0) then
info=4010 info=4010
ch_err='psb_precbld' ch_err='psb_precbld'
@ -192,6 +191,9 @@ program pde90
else if (cmethd.eq.'CGS') then else if (cmethd.eq.'CGS') then
call psb_cgs(a,pre,b,x,eps,desc_a,info,& call psb_cgs(a,pre,b,x,eps,desc_a,info,&
& itmax,iter,err,itrace) & itmax,iter,err,itrace)
else if (cmethd.eq.'CG') then
call psb_cg(a,pre,b,x,eps,desc_a,info,&
& itmax,iter,err,itrace)
else if (cmethd.eq.'BICGSTABL') then else if (cmethd.eq.'BICGSTABL') then
call psb_bicgstabl(a,pre,b,x,eps,desc_a,info,& call psb_bicgstabl(a,pre,b,x,eps,desc_a,info,&
& itmax,iter,err,itrace,ml) & itmax,iter,err,itrace,ml)

Loading…
Cancel
Save