Started playing around with type extensions and typebound

procedures.
Merged performance fixes from trunk.

docs/html/node40.html

@@ -75,7 +75,7 @@ glob\_x \leftarrow collect(loc\_x_i)
 
 <IMG
  WIDTH="163" HEIGHT="28" BORDER="0"
- SRC="img71.png"
+ SRC="img75.png"
  ALT="\begin{displaymath}glob\_x \leftarrow collect(loc\_x_i) \end{displaymath}">
 </DIV>
 <BR CLEAR="ALL">
@@ -84,29 +84,29 @@ where:
 <DL>
 <DT><STRONG><IMG
  WIDTH="46" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
- SRC="img72.png"
+ SRC="img76.png"
  ALT="$glob\_x$"></STRONG></DT>
 <DD>is the global submatrix <!-- MATH
  $glob\_x_{1:m,1:n}$
  -->
 <IMG
  WIDTH="91" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
- SRC="img73.png"
+ SRC="img77.png"
  ALT="$glob\_x_{1:m,1:n}$">
 </DD>
 <DT><STRONG><IMG
  WIDTH="43" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
- SRC="img74.png"
+ SRC="img78.png"
  ALT="$loc\_x_i$"></STRONG></DT>
 <DD>is the local portion of global dense matrix on
 process <IMG
  WIDTH="10" HEIGHT="17" ALIGN="BOTTOM" BORDER="0"
- SRC="img3.png"
+ SRC="img4.png"
  ALT="$i$">.
 </DD>
 <DT><STRONG><IMG
  WIDTH="49" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
- SRC="img75.png"
+ SRC="img79.png"
  ALT="$collect$"></STRONG></DT>
 <DD>is the collect function.
 </DD>
@@ -114,7 +114,7 @@ process <IMG
 
 <P>
 <BR><P></P>
-<DIV ALIGN="CENTER"><A NAME="2677"></A>
+<DIV ALIGN="CENTER"><A NAME="2681"></A>
 <TABLE>
 <CAPTION><STRONG>Table 15:</STRONG>
 Data types</CAPTION>
@@ -123,7 +123,7 @@ Data types</CAPTION>
 <TABLE CELLPADDING=3 BORDER="1" ALIGN="CENTER">
 <TR><TD ALIGN="LEFT"><IMG
  WIDTH="33" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
- SRC="img76.png"
+ SRC="img80.png"
  ALT="$x_i, y$"></TD>
 <TD ALIGN="LEFT"><B>Subroutine</B></TD>
 </TR>
@@ -167,7 +167,7 @@ call psb_gather(glob_x, loc_x, desc_a, info, root)
 <DD>the local portion of global dense matrix
 <IMG
  WIDTH="46" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
- SRC="img72.png"
+ SRC="img76.png"
  ALT="$glob\_x$">. 
 <BR>
 Scope: <B>local</B> 
@@ -193,7 +193,7 @@ Specified as: a structured data of type descdata<TT>psb_desc_type</TT>.
 <DT><STRONG>root</STRONG></DT>
 <DD>The process that holds the global copy. If <IMG
  WIDTH="75" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
- SRC="img77.png"
+ SRC="img81.png"
  ALT="$root=-1$"> all
   the processes will have a copy of the global vector.
 <BR>
@@ -208,10 +208,10 @@ Specified as: an integer variable <!-- MATH
  -->
 <IMG
  WIDTH="140" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
- SRC="img78.png"
+ SRC="img82.png"
  ALT="$-1\le root\le np-1$">, default <IMG
  WIDTH="25" HEIGHT="30" ALIGN="MIDDLE" BORDER="0"
- SRC="img79.png"
+ SRC="img83.png"
  ALT="$-1$">. 
 </DD>
 <DT><STRONG><B>On Return</B></STRONG></DT>