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

Provide alias deallocate_wrk for free_wrk. Use it in OpenACC example

Browse Source
This commit is contained in:
sfilippone
2025-02-23 11:05:08 +01:00
parent 316561c345
commit e2327e10a7
5 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/psb_c_prec_type.f90
+1
View File
@@ -60,6 +60,7 @@ module psb_c_prec_type
generic, public :: set => cseti, csetc, csetr
procedure, pass(prec) :: allocate_wrk => psb_c_allocate_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
end type psb_cprec_type
prec/psb_d_prec_type.f90
+1
View File
@@ -60,6 +60,7 @@ module psb_d_prec_type
generic, public :: set => cseti, csetc, csetr
procedure, pass(prec) :: allocate_wrk => psb_d_allocate_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
end type psb_dprec_type
prec/psb_s_prec_type.f90
+1
View File
@@ -60,6 +60,7 @@ module psb_s_prec_type
generic, public :: set => cseti, csetc, csetr
procedure, pass(prec) :: allocate_wrk => psb_s_allocate_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
end type psb_sprec_type
prec/psb_z_prec_type.f90
+1
View File
@@ -60,6 +60,7 @@ module psb_z_prec_type
generic, public :: set => cseti, csetc, csetr
procedure, pass(prec) :: allocate_wrk => psb_z_allocate_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
end type psb_zprec_type
test/openacc/psb_d_oacc_pde3d.F90
+6
View File
@@ -822,6 +822,9 @@ program psb_d_oacc_pde3d
! iterative method parameters
if (iam == psb_root_) write(psb_out_unit, '("Calling iterative method ", a)') kmethd
call psb_barrier(ctxt)
#ifdef OPENACC
call prec%allocate_wrk(info,vmold)
#endif
t1 = psb_wtime()
eps = 1.d-6
@@ -842,6 +845,9 @@ program psb_d_oacc_pde3d
call psb_barrier(ctxt)
t2 = psb_wtime() - t1
#ifdef OPENACC
call prec%deallocate_wrk(info)
#endif
call psb_amx(ctxt, t2)
amatsize = a%sizeof()
descsize = desc_a%sizeof()