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

Update for new SPALL/SPASB interface.

Browse Source
tspmm v1.1.0
Salvatore Filippone 3 years ago
parent e5b1d7c3ca
commit e46f22a37c
4 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File

8
samples/advanced/pdegen/amg_d_genpde_mod.F90
Unescape Escape View File

@ -500,9 +500,9 @@ contains
t1 = psb_wtime() t1 = psb_wtime()
if (info == psb_success_) then if (info == psb_success_) then
if (present(amold)) then if (present(amold)) then
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,mold=amold) call psb_spasb(a,desc_a,info,mold=amold)
else else
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt) call psb_spasb(a,desc_a,info,afmt=afmt)
end if end if
end if end if
call psb_barrier(ctxt) call psb_barrier(ctxt)
@ -922,9 +922,9 @@ contains
t1 = psb_wtime() t1 = psb_wtime()
if (info == psb_success_) then if (info == psb_success_) then
if (present(amold)) then if (present(amold)) then
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,mold=amold) call psb_spasb(a,desc_a,info,mold=amold)
else else
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt) call psb_spasb(a,desc_a,info,afmt=afmt)
end if end if
end if end if
call psb_barrier(ctxt) call psb_barrier(ctxt)

8
samples/advanced/pdegen/amg_s_genpde_mod.F90
Unescape Escape View File

@ -500,9 +500,9 @@ contains
t1 = psb_wtime() t1 = psb_wtime()
if (info == psb_success_) then if (info == psb_success_) then
if (present(amold)) then if (present(amold)) then
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,mold=amold) call psb_spasb(a,desc_a,info,mold=amold)
else else
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt) call psb_spasb(a,desc_a,info,afmt=afmt)
end if end if
end if end if
call psb_barrier(ctxt) call psb_barrier(ctxt)
@ -922,9 +922,9 @@ contains
t1 = psb_wtime() t1 = psb_wtime()
if (info == psb_success_) then if (info == psb_success_) then
if (present(amold)) then if (present(amold)) then
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,mold=amold) call psb_spasb(a,desc_a,info,mold=amold)
else else
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt) call psb_spasb(a,desc_a,info,afmt=afmt)
end if end if
end if end if
call psb_barrier(ctxt) call psb_barrier(ctxt)

4
samples/simple/pdegen/amg_dpde_mod.f90
Unescape Escape View File

@ -465,9 +465,9 @@ contains
t1 = psb_wtime() t1 = psb_wtime()
if (info == psb_success_) then if (info == psb_success_) then
if (present(amold)) then if (present(amold)) then
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,mold=amold) call psb_spasb(a,desc_a,info,mold=amold)
else else
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt) call psb_spasb(a,desc_a,info,afmt=afmt)
end if end if
end if end if
call psb_barrier(ctxt) call psb_barrier(ctxt)

4
samples/simple/pdegen/amg_spde_mod.f90
Unescape Escape View File

@ -465,9 +465,9 @@ contains
t1 = psb_wtime() t1 = psb_wtime()
if (info == psb_success_) then if (info == psb_success_) then
if (present(amold)) then if (present(amold)) then
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,mold=amold) call psb_spasb(a,desc_a,info,mold=amold)
else else
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt) call psb_spasb(a,desc_a,info,afmt=afmt)
end if end if
end if end if
call psb_barrier(ctxt) call psb_barrier(ctxt)

Write Preview
Loading…
Cancel
Save