Started playing around with type extensions and typebound

procedures.
Merged performance fixes from trunk.
This commit is contained in:
Salvatore Filippone
2008-09-19 16:06:44 +00:00
parent 32e6a17188
commit 00c1468c6c
285 changed files with 8931 additions and 7145 deletions
+7 -7
View File
@@ -63,7 +63,7 @@ psb_geamaxs -- Generalized Infinity Norm</A>
This subroutine computes a series of infinity 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,7 +75,7 @@ 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">
@@ -88,7 +88,7 @@ call psb_geamaxs(res, x, desc_a, info)
<P>
<BR><P></P>
<DIV ALIGN="CENTER"><A NAME="1418"></A>
<DIV ALIGN="CENTER"><A NAME="1420"></A>
<TABLE>
<CAPTION><STRONG>Table 5:</STRONG>
Data types</CAPTION>
@@ -97,11 +97,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>
@@ -140,7 +140,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>
Scope: <B>local</B>
@@ -170,7 +170,7 @@ Specified as: a structured data of type descdata<TT>psb_desc_type</TT>.
<DT><STRONG>res</STRONG></DT>
<DD>is the infinity 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>