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

Provide alias deallocate_wrk for free_wrk. Use it in OpenACC example

Browse Source
randomized
sfilippone 1 year ago
parent 316561c345
commit e2327e10a7
5 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File

1
prec/psb_c_prec_type.f90
Unescape Escape View File

@ -60,6 +60,7 @@ module psb_c_prec_type
generic, public :: set => cseti, csetc, csetr generic, public :: set => cseti, csetc, csetr
procedure, pass(prec) :: allocate_wrk => psb_c_allocate_wrk procedure, pass(prec) :: allocate_wrk => psb_c_allocate_wrk
procedure, pass(prec) :: free_wrk => psb_c_free_wrk procedure, pass(prec) :: free_wrk => psb_c_free_wrk
procedure, pass(prec) :: deallocate_wrk => psb_c_free_wrk
procedure, pass(prec) :: is_allocated_wrk => psb_c_is_allocated_wrk procedure, pass(prec) :: is_allocated_wrk => psb_c_is_allocated_wrk
end type psb_cprec_type end type psb_cprec_type

1
prec/psb_d_prec_type.f90
Unescape Escape View File

@ -60,6 +60,7 @@ module psb_d_prec_type
generic, public :: set => cseti, csetc, csetr generic, public :: set => cseti, csetc, csetr
procedure, pass(prec) :: allocate_wrk => psb_d_allocate_wrk procedure, pass(prec) :: allocate_wrk => psb_d_allocate_wrk
procedure, pass(prec) :: free_wrk => psb_d_free_wrk procedure, pass(prec) :: free_wrk => psb_d_free_wrk
procedure, pass(prec) :: deallocate_wrk => psb_d_free_wrk
procedure, pass(prec) :: is_allocated_wrk => psb_d_is_allocated_wrk procedure, pass(prec) :: is_allocated_wrk => psb_d_is_allocated_wrk
end type psb_dprec_type end type psb_dprec_type

1
prec/psb_s_prec_type.f90
Unescape Escape View File

@ -60,6 +60,7 @@ module psb_s_prec_type
generic, public :: set => cseti, csetc, csetr generic, public :: set => cseti, csetc, csetr
procedure, pass(prec) :: allocate_wrk => psb_s_allocate_wrk procedure, pass(prec) :: allocate_wrk => psb_s_allocate_wrk
procedure, pass(prec) :: free_wrk => psb_s_free_wrk procedure, pass(prec) :: free_wrk => psb_s_free_wrk
procedure, pass(prec) :: deallocate_wrk => psb_s_free_wrk
procedure, pass(prec) :: is_allocated_wrk => psb_s_is_allocated_wrk procedure, pass(prec) :: is_allocated_wrk => psb_s_is_allocated_wrk
end type psb_sprec_type end type psb_sprec_type

1
prec/psb_z_prec_type.f90
Unescape Escape View File

@ -60,6 +60,7 @@ module psb_z_prec_type
generic, public :: set => cseti, csetc, csetr generic, public :: set => cseti, csetc, csetr
procedure, pass(prec) :: allocate_wrk => psb_z_allocate_wrk procedure, pass(prec) :: allocate_wrk => psb_z_allocate_wrk
procedure, pass(prec) :: free_wrk => psb_z_free_wrk procedure, pass(prec) :: free_wrk => psb_z_free_wrk
procedure, pass(prec) :: deallocate_wrk => psb_z_free_wrk
procedure, pass(prec) :: is_allocated_wrk => psb_z_is_allocated_wrk procedure, pass(prec) :: is_allocated_wrk => psb_z_is_allocated_wrk
end type psb_zprec_type end type psb_zprec_type

6
test/openacc/psb_d_oacc_pde3d.F90
Unescape Escape View File

@ -822,6 +822,9 @@ program psb_d_oacc_pde3d
! iterative method parameters ! iterative method parameters
if (iam == psb_root_) write(psb_out_unit, '("Calling iterative method ", a)') kmethd if (iam == psb_root_) write(psb_out_unit, '("Calling iterative method ", a)') kmethd
call psb_barrier(ctxt) call psb_barrier(ctxt)
#ifdef OPENACC
call prec%allocate_wrk(info,vmold)
#endif
t1 = psb_wtime() t1 = psb_wtime()
eps = 1.d-6 eps = 1.d-6
@ -842,6 +845,9 @@ program psb_d_oacc_pde3d
call psb_barrier(ctxt) call psb_barrier(ctxt)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1
#ifdef OPENACC
call prec%deallocate_wrk(info)
#endif
call psb_amx(ctxt, t2) call psb_amx(ctxt, t2)
amatsize = a%sizeof() amatsize = a%sizeof()
descsize = desc_a%sizeof() descsize = desc_a%sizeof()

Write Preview
Loading…
Cancel
Save