Provide alias deallocate_wrk for free_wrk. Use it in OpenACC example

prec/psb_c_prec_type.f90

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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()