mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-16 10:52:08 +00:00
Started playing around with type extensions and typebound
procedures. Merged performance fixes from trunk.
This commit is contained in:
+12
-12
@@ -63,7 +63,7 @@ psb_genrm2s -- Generalized 1-Norm of Vector</A>
|
||||
This subroutine computes a series of 1-norms on the columns of
|
||||
a dense matrix <IMG
|
||||
WIDTH="13" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img24.png"
|
||||
SRC="img26.png"
|
||||
ALT="$x$">:
|
||||
<BR><P></P>
|
||||
<DIV ALIGN="CENTER">
|
||||
@@ -75,19 +75,19 @@ res(i) \leftarrow \max_k |x(k,i)|
|
||||
|
||||
<IMG
|
||||
WIDTH="147" HEIGHT="36" BORDER="0"
|
||||
SRC="img36.png"
|
||||
SRC="img38.png"
|
||||
ALT="\begin{displaymath}res(i) \leftarrow \max_k \vert x(k,i)\vert \end{displaymath}">
|
||||
</DIV>
|
||||
<BR CLEAR="ALL">
|
||||
<P></P>
|
||||
This function computes the 1-norm of a vector <IMG
|
||||
WIDTH="13" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img24.png"
|
||||
SRC="img26.png"
|
||||
ALT="$x$">.
|
||||
<BR>
|
||||
If <IMG
|
||||
WIDTH="13" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img24.png"
|
||||
SRC="img26.png"
|
||||
ALT="$x$"> is a real vector
|
||||
it computes 1-norm as:
|
||||
<BR><P></P>
|
||||
@@ -100,14 +100,14 @@ res(i) \leftarrow \sqrt{x^T x}
|
||||
|
||||
<IMG
|
||||
WIDTH="107" HEIGHT="28" BORDER="0"
|
||||
SRC="img45.png"
|
||||
SRC="img47.png"
|
||||
ALT="\begin{displaymath}res(i) \leftarrow \sqrt{x^T x}\end{displaymath}">
|
||||
</DIV>
|
||||
<BR CLEAR="ALL">
|
||||
<P></P>
|
||||
else if <IMG
|
||||
WIDTH="13" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img24.png"
|
||||
SRC="img26.png"
|
||||
ALT="$x$"> is a complex vector then it computes 1-norm as:
|
||||
<BR><P></P>
|
||||
<DIV ALIGN="CENTER">
|
||||
@@ -119,7 +119,7 @@ res(i) \leftarrow \sqrt{x^H x}
|
||||
|
||||
<IMG
|
||||
WIDTH="109" HEIGHT="28" BORDER="0"
|
||||
SRC="img46.png"
|
||||
SRC="img48.png"
|
||||
ALT="\begin{displaymath}res(i) \leftarrow \sqrt{x^H x}\end{displaymath}">
|
||||
</DIV>
|
||||
<BR CLEAR="ALL">
|
||||
@@ -132,7 +132,7 @@ call psb_genrm2s(res, x, desc_a, info)
|
||||
|
||||
<P>
|
||||
<BR><P></P>
|
||||
<DIV ALIGN="CENTER"><A NAME="1422"></A>
|
||||
<DIV ALIGN="CENTER"><A NAME="1424"></A>
|
||||
<TABLE>
|
||||
<CAPTION><STRONG>Table 9:</STRONG>
|
||||
Data types</CAPTION>
|
||||
@@ -141,11 +141,11 @@ Data types</CAPTION>
|
||||
<TABLE CELLPADDING=3 BORDER="1" ALIGN="CENTER">
|
||||
<TR><TD ALIGN="LEFT"><IMG
|
||||
WIDTH="26" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img32.png"
|
||||
SRC="img34.png"
|
||||
ALT="$res$"></TD>
|
||||
<TD ALIGN="LEFT"><IMG
|
||||
WIDTH="13" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img24.png"
|
||||
SRC="img26.png"
|
||||
ALT="$x$"></TD>
|
||||
<TD ALIGN="LEFT"><B>Subroutine</B></TD>
|
||||
</TR>
|
||||
@@ -184,7 +184,7 @@ Data types</CAPTION>
|
||||
<DD>the local portion of global dense matrix
|
||||
<IMG
|
||||
WIDTH="13" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img24.png"
|
||||
SRC="img26.png"
|
||||
ALT="$x$">.
|
||||
|
||||
<BR>
|
||||
@@ -217,7 +217,7 @@ Specified as: a structured data of type descdata<TT>psb_desc_type</TT>.
|
||||
<DT><STRONG>res</STRONG></DT>
|
||||
<DD>contains the 1-norm of (the columns of) <IMG
|
||||
WIDTH="13" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img24.png"
|
||||
SRC="img26.png"
|
||||
ALT="$x$">.
|
||||
<BR>
|
||||
Scope: <B>global</B>
|
||||
|
||||
Reference in New Issue
Block a user