mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-19 12:22:10 +00:00
Started playing around with type extensions and typebound
procedures. Merged performance fixes from trunk.
This commit is contained in:
+30
-30
@@ -79,7 +79,7 @@ y &\leftarrow& \alpha P_r T^{-H} P_c D x + \beta y\\
|
||||
-->
|
||||
<IMG
|
||||
WIDTH="194" HEIGHT="239" BORDER="0"
|
||||
SRC="img55.png"
|
||||
SRC="img57.png"
|
||||
ALT="\begin{eqnarray*}
|
||||
y &\leftarrow& \alpha P_r T^{-1} P_c x + \beta y\\
|
||||
y &\leftar...
|
||||
@@ -93,40 +93,40 @@ where:
|
||||
<DL>
|
||||
<DT><STRONG><IMG
|
||||
WIDTH="13" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img24.png"
|
||||
SRC="img26.png"
|
||||
ALT="$x$"></STRONG></DT>
|
||||
<DD>is the global dense submatrix <IMG
|
||||
WIDTH="25" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img51.png"
|
||||
SRC="img53.png"
|
||||
ALT="$x_{:, :}$">
|
||||
</DD>
|
||||
<DT><STRONG><IMG
|
||||
WIDTH="13" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img25.png"
|
||||
SRC="img27.png"
|
||||
ALT="$y$"></STRONG></DT>
|
||||
<DD>is the global dense submatrix <IMG
|
||||
WIDTH="23" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img52.png"
|
||||
SRC="img54.png"
|
||||
ALT="$y_{:, :}$">
|
||||
</DD>
|
||||
<DT><STRONG><IMG
|
||||
WIDTH="15" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img56.png"
|
||||
SRC="img58.png"
|
||||
ALT="$T$"></STRONG></DT>
|
||||
<DD>is the global sparse block triangular submatrix <IMG
|
||||
WIDTH="15" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img56.png"
|
||||
SRC="img58.png"
|
||||
ALT="$T$">
|
||||
</DD>
|
||||
<DT><STRONG><IMG
|
||||
WIDTH="18" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img57.png"
|
||||
SRC="img59.png"
|
||||
ALT="$D$"></STRONG></DT>
|
||||
<DD>is the scaling diagonal matrix.
|
||||
</DD>
|
||||
<DT><STRONG><IMG
|
||||
WIDTH="45" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img53.png"
|
||||
SRC="img55.png"
|
||||
ALT="$P_r, P_c$"></STRONG></DT>
|
||||
<DD>are the permutation matrices.
|
||||
</DD>
|
||||
@@ -141,7 +141,7 @@ call psb_spsm(alpha, t, x, beta, y, desc_a, info,&
|
||||
|
||||
<P>
|
||||
<BR><P></P>
|
||||
<DIV ALIGN="CENTER"><A NAME="1425"></A>
|
||||
<DIV ALIGN="CENTER"><A NAME="1427"></A>
|
||||
<TABLE>
|
||||
<CAPTION><STRONG>Table 12:</STRONG>
|
||||
Data types</CAPTION>
|
||||
@@ -150,22 +150,22 @@ Data types</CAPTION>
|
||||
<TABLE CELLPADDING=3 BORDER="1" ALIGN="CENTER">
|
||||
<TR><TD ALIGN="LEFT"><IMG
|
||||
WIDTH="15" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img56.png"
|
||||
SRC="img58.png"
|
||||
ALT="$T$">, <IMG
|
||||
WIDTH="13" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img24.png"
|
||||
SRC="img26.png"
|
||||
ALT="$x$">, <IMG
|
||||
WIDTH="13" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img25.png"
|
||||
SRC="img27.png"
|
||||
ALT="$y$">, <IMG
|
||||
WIDTH="18" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img57.png"
|
||||
SRC="img59.png"
|
||||
ALT="$D$">, <IMG
|
||||
WIDTH="14" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img26.png"
|
||||
SRC="img28.png"
|
||||
ALT="$\alpha$">, <IMG
|
||||
WIDTH="14" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img27.png"
|
||||
SRC="img29.png"
|
||||
ALT="$\beta$"></TD>
|
||||
<TD ALIGN="LEFT"><B>Subroutine</B></TD>
|
||||
</TR>
|
||||
@@ -199,7 +199,7 @@ Data types</CAPTION>
|
||||
<DT><STRONG>alpha</STRONG></DT>
|
||||
<DD>the scalar <IMG
|
||||
WIDTH="14" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img26.png"
|
||||
SRC="img28.png"
|
||||
ALT="$\alpha$">.
|
||||
<BR>
|
||||
Scope: <B>global</B>
|
||||
@@ -215,7 +215,7 @@ Table <A HREF="#tab:f90spsm">12</A>.
|
||||
<DD>the global portion of the sparse matrix
|
||||
<IMG
|
||||
WIDTH="15" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img56.png"
|
||||
SRC="img58.png"
|
||||
ALT="$T$">.
|
||||
<BR>
|
||||
Scope: <B>local</B>
|
||||
@@ -231,7 +231,7 @@ Specified as: a structured data type specified in
|
||||
<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>
|
||||
@@ -245,16 +245,16 @@ 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="img24.png"
|
||||
SRC="img26.png"
|
||||
ALT="$x$"> must be the same of <IMG
|
||||
WIDTH="13" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img25.png"
|
||||
SRC="img27.png"
|
||||
ALT="$y$">.
|
||||
</DD>
|
||||
<DT><STRONG>beta</STRONG></DT>
|
||||
<DD>the scalar <IMG
|
||||
WIDTH="14" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img27.png"
|
||||
SRC="img29.png"
|
||||
ALT="$\beta$">.
|
||||
<BR>
|
||||
Scope: <B>global</B>
|
||||
@@ -269,7 +269,7 @@ Specified as: a number of the data type indicated in Table <A HREF="#tab:f9
|
||||
<DD>the local portion of global dense matrix
|
||||
<IMG
|
||||
WIDTH="13" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img25.png"
|
||||
SRC="img27.png"
|
||||
ALT="$y$">.
|
||||
|
||||
<BR>
|
||||
@@ -283,10 +283,10 @@ 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="img25.png"
|
||||
SRC="img27.png"
|
||||
ALT="$y$"> must be the same of <IMG
|
||||
WIDTH="13" HEIGHT="13" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img24.png"
|
||||
SRC="img26.png"
|
||||
ALT="$x$">.
|
||||
</DD>
|
||||
<DT><STRONG>desc_a</STRONG></DT>
|
||||
@@ -321,7 +321,7 @@ Intent: <B>in</B>.
|
||||
<BR>
|
||||
Default: <IMG
|
||||
WIDTH="78" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img54.png"
|
||||
SRC="img56.png"
|
||||
ALT="$trans = N$">
|
||||
<BR>
|
||||
Specified as: a character variable.
|
||||
@@ -347,7 +347,7 @@ Intent: <B>in</B>.
|
||||
<BR>
|
||||
Default: <IMG
|
||||
WIDTH="76" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
|
||||
SRC="img58.png"
|
||||
SRC="img60.png"
|
||||
ALT="$unitd = U$">
|
||||
<BR>
|
||||
Specified as: a character variable.
|
||||
@@ -393,7 +393,7 @@ Default: <!-- MATH
|
||||
-->
|
||||
<IMG
|
||||
WIDTH="165" HEIGHT="32" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img59.png"
|
||||
SRC="img61.png"
|
||||
ALT="$diag(1) = 1 (no scaling)$">
|
||||
<BR>
|
||||
Specified as: a rank one array containing numbers of the type
|
||||
@@ -410,7 +410,7 @@ 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="img24.png"
|
||||
SRC="img26.png"
|
||||
ALT="$x$"> with the
|
||||
TARGET attribute.
|
||||
|
||||
@@ -423,7 +423,7 @@ TARGET attribute.
|
||||
<DD>the local portion of global dense matrix
|
||||
<IMG
|
||||
WIDTH="13" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
|
||||
SRC="img25.png"
|
||||
SRC="img27.png"
|
||||
ALT="$y$">.
|
||||
|
||||
<BR>
|
||||
|
||||
Reference in New Issue
Block a user