Provide alias deallocate_wrk for free_wrk. Document and use.

amgprec/amg_c_prec_type.f90

@@ -113,6 +113,7 @@ module amg_c_prec_type
     procedure, pass(prec)               :: free           => amg_c_prec_free
     procedure, pass(prec)               :: allocate_wrk   => amg_c_allocate_wrk
     procedure, pass(prec)               :: free_wrk       => amg_c_free_wrk
+    procedure, pass(prec)               :: deallocate_wrk => amg_c_free_wrk
     procedure, pass(prec)               :: is_allocated_wrk => amg_c_is_allocated_wrk
     procedure, pass(prec)               :: get_complexity => amg_c_get_compl
     procedure, pass(prec)               :: cmp_complexity => amg_c_cmp_compl

amgprec/amg_d_prec_type.f90

@@ -113,6 +113,7 @@ module amg_d_prec_type
     procedure, pass(prec)               :: free           => amg_d_prec_free
     procedure, pass(prec)               :: allocate_wrk   => amg_d_allocate_wrk
     procedure, pass(prec)               :: free_wrk       => amg_d_free_wrk
+    procedure, pass(prec)               :: deallocate_wrk => amg_d_free_wrk
     procedure, pass(prec)               :: is_allocated_wrk => amg_d_is_allocated_wrk
     procedure, pass(prec)               :: get_complexity => amg_d_get_compl
     procedure, pass(prec)               :: cmp_complexity => amg_d_cmp_compl

amgprec/amg_s_prec_type.f90

@@ -113,6 +113,7 @@ module amg_s_prec_type
     procedure, pass(prec)               :: free           => amg_s_prec_free
     procedure, pass(prec)               :: allocate_wrk   => amg_s_allocate_wrk
     procedure, pass(prec)               :: free_wrk       => amg_s_free_wrk
+    procedure, pass(prec)               :: deallocate_wrk => amg_s_free_wrk
     procedure, pass(prec)               :: is_allocated_wrk => amg_s_is_allocated_wrk
     procedure, pass(prec)               :: get_complexity => amg_s_get_compl
     procedure, pass(prec)               :: cmp_complexity => amg_s_cmp_compl

amgprec/amg_z_prec_type.f90

@@ -113,6 +113,7 @@ module amg_z_prec_type
     procedure, pass(prec)               :: free           => amg_z_prec_free
     procedure, pass(prec)               :: allocate_wrk   => amg_z_allocate_wrk
     procedure, pass(prec)               :: free_wrk       => amg_z_free_wrk
+    procedure, pass(prec)               :: deallocate_wrk => amg_z_free_wrk
     procedure, pass(prec)               :: is_allocated_wrk => amg_z_is_allocated_wrk
     procedure, pass(prec)               :: get_complexity => amg_z_get_compl
     procedure, pass(prec)               :: cmp_complexity => amg_z_cmp_compl

docs/html/userhtmlli2.html

@@ -189,7 +189,7 @@ class="cmr-12">&#x00A0;</span><span
 class="cmr-12">&#x00A0;</span><span class="subsubsectionToc" ><span 
 class="cmr-12">5.9.5 </span><a 
 href="userhtmlse5.html#x8-300005.9.5" id="QQ2-8-47"><span 
-class="cmr-12">Method: free</span><span 
+class="cmr-12">Method: deallocate</span><span 
 class="cmr-12">_wrk</span></a></span>
 <br />   <span 
 class="cmr-12">&#x00A0;</span><span class="sectionToc" ><span 

docs/html/userhtmlse5.html

@@ -3238,12 +3238,12 @@ class="td11">      </td> </tr></table>
    <h5 class="subsubsectionHead"><span class="titlemark"><span 
 class="cmr-12">5.9.5   </span></span> <a 
  id="x8-300005.9.5"></a><span 
-class="cmr-12">Method: free</span><span 
+class="cmr-12">Method: deallocate</span><span 
 class="cmr-12">_wrk</span></h5>
 <div class="center" 
 >
 <!--l. 1031--><p class="noindent" >
-<!--l. 1032--><p class="noindent" ><code class="lstinline"><span style="color:#000000">call</span><span style="color:#000000"> </span><span style="color:#000000">p</span><span style="color:#000000">%</span><span style="color:#000000">free_wrk</span><span style="color:#000000">(</span><span style="color:#000000">info</span><span style="color:#000000">)</span></code><br />
+<!--l. 1032--><p class="noindent" ><code class="lstinline"><span style="color:#000000">call</span><span style="color:#000000"> </span><span style="color:#000000">p</span><span style="color:#000000">%</span><span style="color:#000000">deallocate_wrk</span><span style="color:#000000">(</span><span style="color:#000000">info</span><span style="color:#000000">)</span></code><br />
 </div>
                                                                                
 

docs/src/userinterface.tex

@@ -1026,10 +1026,10 @@ type of the \fortinline|x| argument to the \fortinline|apply| method.
 
 
 
-\subsubsection{Method: free\_wrk}
+\subsubsection{Method: deallocate\_wrk}
 
 \begin{center}
-\fortinline|call p%free_wrk(info)|\\
+\fortinline|call p%deallocate_wrk(info)|\\
 \end{center}
 
 \noindent

samples/cuda/amg_dexample_cuda.F90

@@ -1285,7 +1285,7 @@ program amg_dexample_cuda
 
   t2 = psb_wtime() - t1
   call psb_amx(ctxt,t2)
-  call prec%free_wrk(info)
+  call prec%deallocate_wrk(info)
 
   call psb_geall(r,desc_A,info)
   call r%zero()