fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Alfredo Buttari
2005-10-31 10:45:03 +00:00
parent f7d808813c
commit d283f6ffa8
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/tools/psb_descasb.f90
-1
View File
@@ -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))
test/pargen/ppde90.f90
+5 -3
View File
@@ -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)