fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

mld2p4-2:

Browse Source 
mlprec/mld_cprecaply.f90
 mlprec/mld_dprecinit.F90
 mlprec/mld_zprecaply.f90
 tests/pdegen/Makefile
 tests/pdegen/ppde.f90
 tests/pdegen/runs/ppde.inp

Fix use statements.
This commit is contained in:
Salvatore Filippone
2010-12-15 19:17:55 +00:00
parent 11272fd8b9
commit f89f15b162
6 changed files with 16 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_cprecaply.f90
+2 -4
View File
@@ -74,8 +74,7 @@
subroutine mld_cprecaply(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod
use mld_inner_mod
use mld_prec_mod, mld_protect_name => mld_cprecaply
use mld_inner_mod, mld_protect_name => mld_cprecaply
implicit none
@@ -208,8 +207,7 @@ end subroutine mld_cprecaply
subroutine mld_cprecaply1(prec,x,desc_data,info,trans)
use psb_sparse_mod
use mld_inner_mod
use mld_prec_mod, mld_protect_name => mld_cprecaply1
use mld_inner_mod, mld_protect_name => mld_cprecaply1
implicit none
mlprec/mld_dprecinit.F90
+5 -1
View File
@@ -228,10 +228,13 @@ subroutine mld_dprecinit(p,ptype,info,nlev)
end if
ilev_ = 1
allocate(p%precv(nlev_),stat=info)
!!$ write(0,*) 'Check 1: ',allocated(p%precv(1)%sm)
if (info == psb_success_) call psb_realloc(mld_ifpsz_,p%precv(ilev_)%iprcparm,info)
if (info == psb_success_) call psb_realloc(mld_rfpsz_,p%precv(ilev_)%rprcparm,info)
!!$ write(0,*) 'Check 2: ',allocated(p%precv(1)%sm)
if (info == psb_success_) call psb_realloc(mld_ifpsz_,p%precv(ilev_)%prec%iprcparm,info)
if (info == psb_success_) call psb_realloc(mld_rfpsz_,p%precv(ilev_)%prec%rprcparm,info)
!!$ write(0,*) 'Check 3: ',allocated(p%precv(1)%sm)
if (info /= psb_success_) return
p%precv(ilev_)%iprcparm(:) = 0
p%precv(ilev_)%rprcparm(:) = dzero
@@ -256,8 +259,8 @@ subroutine mld_dprecinit(p,ptype,info,nlev)
p%precv(ilev_)%iprcparm(mld_smoother_sweeps_) = 1
p%precv(ilev_)%iprcparm(mld_smoother_sweeps_pre_) = 1
p%precv(ilev_)%iprcparm(mld_smoother_sweeps_post_) = 1
!!$ write(0,*) 'Check 4: ',allocated(p%precv(1)%sm)
if (nlev_ == 1) return
do ilev_ = 2, nlev_ -1
if (info == psb_success_) call psb_realloc(mld_ifpsz_,p%precv(ilev_)%iprcparm,info)
if (info == psb_success_) call psb_realloc(mld_rfpsz_,p%precv(ilev_)%rprcparm,info)
@@ -327,6 +330,7 @@ subroutine mld_dprecinit(p,ptype,info,nlev)
p%precv(ilev_)%iprcparm(mld_aggr_filter_) = mld_no_filter_mat_
p%precv(ilev_)%rprcparm(mld_aggr_omega_val_) = dzero
p%precv(ilev_)%rprcparm(mld_aggr_thresh_) = dzero
!!$ write(0,*) 'Check 5: ',allocated(p%precv(1)%sm)
case default
write(0,*) name,': Warning: Unknown preconditioner type request "',ptype,'"'
mlprec/mld_zprecaply.f90
+2 -4
View File
@@ -74,8 +74,7 @@
subroutine mld_zprecaply(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod
use mld_inner_mod
use mld_prec_mod, mld_protect_name => mld_zprecaply
use mld_inner_mod, mld_protect_name => mld_zprecaply
implicit none
@@ -208,8 +207,7 @@ end subroutine mld_zprecaply
subroutine mld_zprecaply1(prec,x,desc_data,info,trans)
use psb_sparse_mod
use mld_inner_mod
use mld_prec_mod, mld_protect_name => mld_zprecaply1
use mld_inner_mod, mld_protect_name => mld_zprecaply1
implicit none