mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-07 07:04:57 +00:00
psblas3:
fix documentation bug for NRM2
This commit is contained in:
+434
-38
@@ -7,8 +7,8 @@ original version by: Nikos Drakos, CBLU, University of Leeds
|
||||
Jens Lippmann, Marek Rouchal, Martin Wilck and others -->
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>Communication routines</TITLE>
|
||||
<META NAME="description" CONTENT="Communication routines">
|
||||
<TITLE>psb_spsm -- Triangular System Solve</TITLE>
|
||||
<META NAME="description" CONTENT="psb_spsm -- Triangular System Solve">
|
||||
<META NAME="keywords" CONTENT="userhtml">
|
||||
<META NAME="resource-type" CONTENT="document">
|
||||
<META NAME="distribution" CONTENT="global">
|
||||
@@ -18,63 +18,459 @@ original version by: Nikos Drakos, CBLU, University of Leeds
|
||||
|
||||
<LINK REL="STYLESHEET" HREF="userhtml.css">
|
||||
|
||||
<LINK REL="next" HREF="node42.html">
|
||||
<LINK REL="previous" HREF="node25.html">
|
||||
<LINK REL="up" HREF="userhtml.html">
|
||||
<LINK REL="previous" HREF="node36.html">
|
||||
<LINK REL="up" HREF="node25.html">
|
||||
<LINK REL="next" HREF="node38.html">
|
||||
</HEAD>
|
||||
|
||||
<BODY >
|
||||
<!--Navigation Panel-->
|
||||
<A NAME="tex2html627"
|
||||
<A NAME="tex2html629"
|
||||
HREF="node38.html">
|
||||
<IMG WIDTH="37" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="next" SRC="next.png"></A>
|
||||
<A NAME="tex2html623"
|
||||
HREF="userhtml.html">
|
||||
<A NAME="tex2html625"
|
||||
HREF="node25.html">
|
||||
<IMG WIDTH="26" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="up" SRC="up.png"></A>
|
||||
<A NAME="tex2html617"
|
||||
<A NAME="tex2html621"
|
||||
HREF="node36.html">
|
||||
<IMG WIDTH="63" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="previous" SRC="prev.png"></A>
|
||||
<A NAME="tex2html625"
|
||||
<A NAME="tex2html627"
|
||||
HREF="node1.html">
|
||||
<IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A>
|
||||
<BR>
|
||||
<B> Next:</B> <A NAME="tex2html628"
|
||||
HREF="node38.html">psb_halo Halo</A>
|
||||
<B> Up:</B> <A NAME="tex2html624"
|
||||
HREF="userhtml.html">userhtml</A>
|
||||
<B> Previous:</B> <A NAME="tex2html618"
|
||||
HREF="node36.html">psb_spsm Triangular</A>
|
||||
<B> <A NAME="tex2html626"
|
||||
<B> Next:</B> <A NAME="tex2html630"
|
||||
HREF="node38.html">Communication routines</A>
|
||||
<B> Up:</B> <A NAME="tex2html626"
|
||||
HREF="node25.html">Computational routines</A>
|
||||
<B> Previous:</B> <A NAME="tex2html622"
|
||||
HREF="node36.html">psb_spmm Sparse</A>
|
||||
<B> <A NAME="tex2html628"
|
||||
HREF="node1.html">Contents</A></B>
|
||||
<BR>
|
||||
<BR>
|
||||
<!--End of Navigation Panel-->
|
||||
|
||||
<H1><A NAME="SECTION00060000000000000000">
|
||||
Communication routines</A>
|
||||
</H1>
|
||||
The routines in this chapter implement various global communication operators
|
||||
on vectors associated with a discretization mesh. For auxiliary communication
|
||||
routines not tied to a discretization space see <A HREF="node42.html#sec:toolsrout">6</A>.
|
||||
<H2><A NAME="SECTION000512000000000000000">
|
||||
psb_spsm -- Triangular System Solve</A>
|
||||
</H2>
|
||||
|
||||
<P>
|
||||
<BR><HR>
|
||||
<!--Table of Child-Links-->
|
||||
<A NAME="CHILD_LINKS"><STRONG>Subsections</STRONG></A>
|
||||
This subroutine computes the Triangular System Solve:
|
||||
|
||||
<UL>
|
||||
<LI><A NAME="tex2html629"
|
||||
HREF="node38.html">psb_halo -- Halo Data Communication</A>
|
||||
<LI><A NAME="tex2html630"
|
||||
HREF="node39.html">psb_ovrl -- Overlap Update</A>
|
||||
<LI><A NAME="tex2html631"
|
||||
HREF="node40.html">psb_gather -- Gather Global Dense Matrix</A>
|
||||
<LI><A NAME="tex2html632"
|
||||
HREF="node41.html">psb_scatter -- Scatter Global Dense Matrix</A>
|
||||
</UL>
|
||||
<!--End of Table of Child-Links-->
|
||||
<BR><HR>
|
||||
<P>
|
||||
<P></P>
|
||||
<DIV ALIGN="CENTER">
|
||||
<!-- MATH
|
||||
\begin{eqnarray*}
|
||||
y &\leftarrow& \alpha P_r T^{-1} P_c x + \beta y\\
|
||||
y &\leftarrow& \alpha D P_r T^{-1} P_c x + \beta y\\
|
||||
y &\leftarrow& \alpha P_r T^{-1} P_c D x + \beta y\\
|
||||
y &\leftarrow& \alpha P_r T^{-T} P_c x + \beta y\\
|
||||
y &\leftarrow& \alpha D P_r T^{-T} P_c x + \beta y\\
|
||||
y &\leftarrow& \alpha P_r T^{-T} P_c D x + \beta y\\
|
||||
y &\leftarrow& \alpha P_r T^{-H} P_c x + \beta y\\
|
||||
y &\leftarrow& \alpha D P_r T^{-H} P_c x + \beta y\\
|
||||
y &\leftarrow& \alpha P_r T^{-H} P_c D x + \beta y\\
|
||||
\end{eqnarray*}
|
||||
-->
|
||||
<IMG
|
||||
WIDTH="194" HEIGHT="239" BORDER="0"
|
||||
SRC="img56.png"
|
||||
ALT="\begin{eqnarray*}
|
||||
y &\leftarrow& \alpha P_r T^{-1} P_c x + \beta y\\
|
||||
y &\leftar...
|
||||
...\beta y\\
|
||||
y &\leftarrow& \alpha P_r T^{-H} P_c D x + \beta y\\
|
||||
\end{eqnarray*}"></DIV>
|
||||
<BR CLEAR="ALL"><P></P>
|
||||
|
||||
<P>
|
||||
where:
|
||||
<DL>
|
||||
<DT><STRONG><IMG
|
||||
WIDTH="13" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img26.png"
|
||||
ALT="$x$"></STRONG></DT>
|
||||
<DD>is the global dense submatrix <IMG
|
||||
WIDTH="25" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img52.png"
|
||||
ALT="$x_{:, :}$">
|
||||
</DD>
|
||||
<DT><STRONG><IMG
|
||||
WIDTH="13" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img27.png"
|
||||
ALT="$y$"></STRONG></DT>
|
||||
<DD>is the global dense submatrix <IMG
|
||||
WIDTH="23" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img53.png"
|
||||
ALT="$y_{:, :}$">
|
||||
</DD>
|
||||
<DT><STRONG><IMG
|
||||
WIDTH="15" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img57.png"
|
||||
ALT="$T$"></STRONG></DT>
|
||||
<DD>is the global sparse block triangular submatrix <IMG
|
||||
WIDTH="15" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img57.png"
|
||||
ALT="$T$">
|
||||
</DD>
|
||||
<DT><STRONG><IMG
|
||||
WIDTH="18" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img58.png"
|
||||
ALT="$D$"></STRONG></DT>
|
||||
<DD>is the scaling diagonal matrix.
|
||||
</DD>
|
||||
<DT><STRONG><IMG
|
||||
WIDTH="45" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img54.png"
|
||||
ALT="$P_r, P_c$"></STRONG></DT>
|
||||
<DD>are the permutation matrices.
|
||||
</DD>
|
||||
</DL>
|
||||
|
||||
<P>
|
||||
<PRE>
|
||||
call psb_spsm(alpha, t, x, beta, y, desc_a, info)
|
||||
call psb_spsm(alpha, t, x, beta, y, desc_a, info,&
|
||||
& trans, unit, choice, diag, work)
|
||||
</PRE>
|
||||
|
||||
<P>
|
||||
<BR><P></P>
|
||||
<DIV ALIGN="CENTER"><A NAME="1427"></A>
|
||||
<TABLE>
|
||||
<CAPTION><STRONG>Table 12:</STRONG>
|
||||
Data types</CAPTION>
|
||||
<TR><TD>
|
||||
<DIV ALIGN="CENTER">
|
||||
<TABLE CELLPADDING=3 BORDER="1" ALIGN="CENTER">
|
||||
<TR><TD ALIGN="LEFT"><IMG
|
||||
WIDTH="15" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img57.png"
|
||||
ALT="$T$">, <IMG
|
||||
WIDTH="13" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img26.png"
|
||||
ALT="$x$">, <IMG
|
||||
WIDTH="13" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img27.png"
|
||||
ALT="$y$">, <IMG
|
||||
WIDTH="18" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img58.png"
|
||||
ALT="$D$">, <IMG
|
||||
WIDTH="14" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img28.png"
|
||||
ALT="$\alpha$">, <IMG
|
||||
WIDTH="14" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img29.png"
|
||||
ALT="$\beta$"></TD>
|
||||
<TD ALIGN="LEFT"><B>Subroutine</B></TD>
|
||||
</TR>
|
||||
<TR><TD ALIGN="LEFT">Short Precision Real</TD>
|
||||
<TD ALIGN="LEFT">psb_spsm</TD>
|
||||
</TR>
|
||||
<TR><TD ALIGN="LEFT">Long Precision Real</TD>
|
||||
<TD ALIGN="LEFT">psb_spsm</TD>
|
||||
</TR>
|
||||
<TR><TD ALIGN="LEFT">Short Precision Complex</TD>
|
||||
<TD ALIGN="LEFT">psb_spsm</TD>
|
||||
</TR>
|
||||
<TR><TD ALIGN="LEFT">Long Precision Complex</TD>
|
||||
<TD ALIGN="LEFT">psb_spsm</TD>
|
||||
</TR>
|
||||
</TABLE>
|
||||
</DIV>
|
||||
</TD></TR>
|
||||
</TABLE>
|
||||
</DIV><P></P>
|
||||
<BR>
|
||||
|
||||
<P>
|
||||
<DL>
|
||||
<DT><STRONG>Type:</STRONG></DT>
|
||||
<DD>Synchronous.
|
||||
</DD>
|
||||
<DT><STRONG><B>On Entry</B></STRONG></DT>
|
||||
<DD>
|
||||
</DD>
|
||||
<DT><STRONG>alpha</STRONG></DT>
|
||||
<DD>the scalar <IMG
|
||||
WIDTH="14" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img28.png"
|
||||
ALT="$\alpha$">.
|
||||
<BR>
|
||||
Scope: <B>global</B>
|
||||
<BR>
|
||||
Type: <B>required</B>
|
||||
<BR>
|
||||
Intent: <B>in</B>.
|
||||
<BR>
|
||||
Specified as: a number of the data type indicated in
|
||||
Table <A HREF="#tab:f90spsm">12</A>.
|
||||
</DD>
|
||||
<DT><STRONG>t</STRONG></DT>
|
||||
<DD>the global portion of the sparse matrix
|
||||
<IMG
|
||||
WIDTH="15" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img57.png"
|
||||
ALT="$T$">.
|
||||
<BR>
|
||||
Scope: <B>local</B>
|
||||
<BR>
|
||||
Type: <B>required</B>
|
||||
<BR>
|
||||
Intent: <B>in</B>.
|
||||
<BR>
|
||||
Specified as: a structured data type specified in
|
||||
§ <A HREF="node8.html#sec:datastruct">3</A>.
|
||||
</DD>
|
||||
<DT><STRONG>x</STRONG></DT>
|
||||
<DD>the local portion of global dense matrix
|
||||
<IMG
|
||||
WIDTH="13" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img26.png"
|
||||
ALT="$x$">.
|
||||
|
||||
<BR>
|
||||
Scope: <B>local</B>
|
||||
<BR>
|
||||
Type: <B>required</B>
|
||||
<BR>
|
||||
Intent: <B>in</B>.
|
||||
<BR>
|
||||
Specified as: a rank one or two array
|
||||
containing numbers of type specified in
|
||||
Table <A HREF="#tab:f90spsm">12</A>. The rank of <IMG
|
||||
WIDTH="13" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img26.png"
|
||||
ALT="$x$"> must be the same of <IMG
|
||||
WIDTH="13" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img27.png"
|
||||
ALT="$y$">.
|
||||
</DD>
|
||||
<DT><STRONG>beta</STRONG></DT>
|
||||
<DD>the scalar <IMG
|
||||
WIDTH="14" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img29.png"
|
||||
ALT="$\beta$">.
|
||||
<BR>
|
||||
Scope: <B>global</B>
|
||||
<BR>
|
||||
Type: <B>required</B>
|
||||
<BR>
|
||||
Intent: <B>in</B>.
|
||||
<BR>
|
||||
Specified as: a number of the data type indicated in Table <A HREF="#tab:f90spsm">12</A>.
|
||||
</DD>
|
||||
<DT><STRONG>y</STRONG></DT>
|
||||
<DD>the local portion of global dense matrix
|
||||
<IMG
|
||||
WIDTH="13" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img27.png"
|
||||
ALT="$y$">.
|
||||
|
||||
<BR>
|
||||
Scope: <B>local</B>
|
||||
<BR>
|
||||
Type: <B>required</B>
|
||||
<BR>
|
||||
Intent: <B>inout</B>.
|
||||
<BR>
|
||||
Specified as: a rank one or two array
|
||||
containing numbers of type specified in
|
||||
Table <A HREF="#tab:f90spsm">12</A>. The rank of <IMG
|
||||
WIDTH="13" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img27.png"
|
||||
ALT="$y$"> must be the same of <IMG
|
||||
WIDTH="13" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img26.png"
|
||||
ALT="$x$">.
|
||||
</DD>
|
||||
<DT><STRONG>desc_a</STRONG></DT>
|
||||
<DD>contains data structures for communications.
|
||||
<BR>
|
||||
Scope: <B>local</B>
|
||||
<BR>
|
||||
Type: <B>required</B>
|
||||
<BR>
|
||||
Intent: <B>in</B>.
|
||||
<BR>
|
||||
Specified as: a structured data of type descdata<TT>psb_desc_type</TT>.
|
||||
</DD>
|
||||
<DT><STRONG>trans</STRONG></DT>
|
||||
<DD>specify with <EM>unitd</EM> the operation to perform.
|
||||
<DL>
|
||||
<DT><STRONG>trans = 'N'</STRONG></DT>
|
||||
<DD>the operation is with no transposed matrix
|
||||
</DD>
|
||||
<DT><STRONG>trans = 'T'</STRONG></DT>
|
||||
<DD>the operation is with transposed matrix.
|
||||
</DD>
|
||||
<DT><STRONG>trans = 'C'</STRONG></DT>
|
||||
<DD>the operation is with conjugate transposed matrix.
|
||||
</DD>
|
||||
</DL>
|
||||
Scope: <B>global</B>
|
||||
<BR>
|
||||
Type: <B>optional</B>
|
||||
<BR>
|
||||
Intent: <B>in</B>.
|
||||
<BR>
|
||||
Default: <IMG
|
||||
WIDTH="78" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img55.png"
|
||||
ALT="$trans = N$">
|
||||
<BR>
|
||||
Specified as: a character variable.
|
||||
</DD>
|
||||
<DT><STRONG>unitd</STRONG></DT>
|
||||
<DD>specify with <EM>trans</EM> the operation to perform.
|
||||
<DL>
|
||||
<DT><STRONG>unitd = 'U'</STRONG></DT>
|
||||
<DD>the operation is with no scaling
|
||||
</DD>
|
||||
<DT><STRONG>unitd = 'L'</STRONG></DT>
|
||||
<DD>the operation is with left scaling
|
||||
</DD>
|
||||
<DT><STRONG>unitd = 'R'</STRONG></DT>
|
||||
<DD>the operation is with right scaling.
|
||||
</DD>
|
||||
</DL>
|
||||
Scope: <B>global</B>
|
||||
<BR>
|
||||
Type: <B>optional</B>
|
||||
<BR>
|
||||
Intent: <B>in</B>.
|
||||
<BR>
|
||||
Default: <IMG
|
||||
WIDTH="76" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img59.png"
|
||||
ALT="$unitd = U$">
|
||||
<BR>
|
||||
Specified as: a character variable.
|
||||
</DD>
|
||||
<DT><STRONG>choice</STRONG></DT>
|
||||
<DD>specifies the update of overlap elements to be performed
|
||||
on exit:
|
||||
<DL>
|
||||
<DT></DT>
|
||||
<DD><code>psb_none_</code>
|
||||
</DD>
|
||||
<DT></DT>
|
||||
<DD><code>psb_sum_</code>
|
||||
</DD>
|
||||
<DT></DT>
|
||||
<DD><code>psb_avg_</code>
|
||||
</DD>
|
||||
<DT></DT>
|
||||
<DD><code>psb_square_root_</code>
|
||||
</DD>
|
||||
</DL>
|
||||
Scope: <B>global</B>
|
||||
<BR>
|
||||
Type: <B>optional</B>
|
||||
<BR>
|
||||
Intent: <B>in</B>.
|
||||
<BR>
|
||||
Default: <code>psb_avg_</code>
|
||||
<BR>
|
||||
Specified as: an integer variable.
|
||||
</DD>
|
||||
<DT><STRONG>diag</STRONG></DT>
|
||||
<DD>the diagonal scaling matrix.
|
||||
<BR>
|
||||
Scope: <B>local</B>
|
||||
<BR>
|
||||
Type: <B>optional</B>
|
||||
<BR>
|
||||
Intent: <B>in</B>.
|
||||
<BR>
|
||||
Default: <!-- MATH
|
||||
$diag(1) = 1 (no scaling)$
|
||||
-->
|
||||
<IMG
|
||||
WIDTH="165" HEIGHT="32" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img60.png"
|
||||
ALT="$diag(1) = 1 (no scaling)$">
|
||||
<BR>
|
||||
Specified as: a rank one array containing numbers of the type
|
||||
indicated in Table <A HREF="#tab:f90spsm">12</A>.
|
||||
</DD>
|
||||
<DT><STRONG>work</STRONG></DT>
|
||||
<DD>a work array.
|
||||
<BR>
|
||||
Scope: <B>local</B>
|
||||
<BR>
|
||||
Type: <B>optional</B>
|
||||
<BR>
|
||||
Intent: <B>inout</B>.
|
||||
<BR>
|
||||
Specified as: a rank one array of the same type of <IMG
|
||||
WIDTH="13" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img26.png"
|
||||
ALT="$x$"> with the
|
||||
TARGET attribute.
|
||||
|
||||
<P>
|
||||
</DD>
|
||||
<DT><STRONG><B>On Return</B></STRONG></DT>
|
||||
<DD>
|
||||
</DD>
|
||||
<DT><STRONG>y</STRONG></DT>
|
||||
<DD>the local portion of global dense matrix
|
||||
<IMG
|
||||
WIDTH="13" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img27.png"
|
||||
ALT="$y$">.
|
||||
|
||||
<BR>
|
||||
Scope: <B>local</B>
|
||||
<BR>
|
||||
Type: <B>required</B>
|
||||
<BR>
|
||||
Intent: <B>inout</B>.
|
||||
<BR>
|
||||
Specified as: an array of rank one or two
|
||||
containing numbers of type specified in
|
||||
Table <A HREF="#tab:f90spsm">12</A>.
|
||||
</DD>
|
||||
<DT><STRONG>info</STRONG></DT>
|
||||
<DD>Error code.
|
||||
<BR>
|
||||
Scope: <B>local</B>
|
||||
<BR>
|
||||
Type: <B>required</B>
|
||||
<BR>
|
||||
Intent: <B>out</B>.
|
||||
<BR>
|
||||
An integer value; 0 means no error has been detected.
|
||||
</DD>
|
||||
</DL>
|
||||
|
||||
<P>
|
||||
<HR>
|
||||
<!--Navigation Panel-->
|
||||
<A NAME="tex2html629"
|
||||
HREF="node38.html">
|
||||
<IMG WIDTH="37" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="next" SRC="next.png"></A>
|
||||
<A NAME="tex2html625"
|
||||
HREF="node25.html">
|
||||
<IMG WIDTH="26" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="up" SRC="up.png"></A>
|
||||
<A NAME="tex2html621"
|
||||
HREF="node36.html">
|
||||
<IMG WIDTH="63" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="previous" SRC="prev.png"></A>
|
||||
<A NAME="tex2html627"
|
||||
HREF="node1.html">
|
||||
<IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A>
|
||||
<BR>
|
||||
<B> Next:</B> <A NAME="tex2html630"
|
||||
HREF="node38.html">Communication routines</A>
|
||||
<B> Up:</B> <A NAME="tex2html626"
|
||||
HREF="node25.html">Computational routines</A>
|
||||
<B> Previous:</B> <A NAME="tex2html622"
|
||||
HREF="node36.html">psb_spmm Sparse</A>
|
||||
<B> <A NAME="tex2html628"
|
||||
HREF="node1.html">Contents</A></B>
|
||||
<!--End of Navigation Panel-->
|
||||
|
||||
</BODY>
|
||||
</HTML>
|
||||
|
||||
Reference in New Issue
Block a user