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

Provide alias deallocate_wrk for free_wrk. Document and use.

Browse Source
This commit is contained in:
sfilippone
2025-02-23 10:46:45 +01:00
parent 2e79105695
commit f6349d34d1
11 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
amgprec/amg_c_prec_type.f90
+1
View File
@@ -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
+1
View File
@@ -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
+1
View File
@@ -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
+1
View File
@@ -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/amg4psblas_1.2-guide.pdf
BIN
View File
Binary file not shown.
docs/html/userhtml0x.png
BIN
View File
Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 892 B

After

Width:  |  Height:  |  Size: 804 B

docs/html/userhtml1x.png
BIN
View File
Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.0 KiB

After

Width:  |  Height:  |  Size: 1.8 KiB

docs/html/userhtmlli2.html
+1 -1
View File
@@ -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
+2 -2
View File
@@ -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
+2 -2
View File
@@ -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
+1 -1
View File
@@ -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()