get_rank and get_mpicomm

Make psb_get_rank and  psb_get_mpicomm functions, not
subroutines. Document same.

docs/html/node103.html

@@ -54,7 +54,7 @@ psb_get_mpicomm -- Get the MPI communicator</A>
 
 <P>
 <PRE>
-call psb_get_mpicomm(icontxt, icomm)
+icomm = psb_get_mpicomm(icontxt)
 </PRE>
 
 <P>
@@ -85,7 +85,7 @@ Specified as: an integer variable.
 <DT><STRONG><B>On Return</B></STRONG></DT>
 <DD>
 </DD>
-<DT><STRONG>icomm</STRONG></DT>
+<DT><STRONG>Function value</STRONG></DT>
 <DD>The MPI communicator associated with the  PSBLAS virtual parallel machine.
 <BR>
 Scope: <B>global</B>.

docs/html/node104.html

@@ -54,7 +54,7 @@ psb_get_rank -- Get the MPI rank</A>
 
 <P>
 <PRE>
-call psb_get_rank(rank, icontxt, id)
+rank = psb_get_rank(icontxt, id)
 </PRE>
 
 <P>
@@ -104,7 +104,7 @@ Specified as: an integer value. <!-- MATH
 <DT><STRONG><B>On Return</B></STRONG></DT>
 <DD>
 </DD>
-<DT><STRONG>rank</STRONG></DT>
+<DT><STRONG>Funciton value</STRONG></DT>
 <DD>The MPI rank associated with the  PSBLAS process <SPAN CLASS="MATH"><IMG
  WIDTH="18" HEIGHT="14" ALIGN="BOTTOM" BORDER="0"
  SRC="img138.png"

docs/html/node135.html

@@ -60,7 +60,7 @@ Mathematics Department, Macquarie University, Sydney.
 The command line arguments were: <BR>
  <STRONG>latex2html</STRONG> <TT>-local_icons -noaddress -dir ../../html userhtml.tex</TT>
 <P>
-The translation was initiated on 2019-05-28
+The translation was initiated on 2019-11-20
 <BR><HR>
 
 </BODY>

docs/psblas-3.6.pdf

@@ -19381,7 +19381,7 @@ endstream
 endobj
 1576 0 obj
 <<
-/Length 2161      
+/Length 2196      
 >>
 stream
 0 g 0 G
@@ -19404,7 +19404,7 @@ BT
 /F16 11.9552 Tf 147.92 706.129 Td [(mpicomm)-375(|)-375(Get)-375(the)-375(MPI)-375(comm)31(unicator)]TJ
 0 g 0 G
 0 g 0 G
-/F30 9.9626 Tf -48.025 -18.389 Td [(call)-525(psb_get_mpicomm\050icontxt,)-525(icomm\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-335(subroutine)-335(returns)-335(the)-336(MPI)-335(comm)28(unicator)-335(asso)-28(ciated)-335(with)-335(a)-336(P)1(SBLAS)]TJ -14.944 -11.955 Td [(con)28(text)]TJ
+/F30 9.9626 Tf -48.025 -18.389 Td [(icomm)-525(=)-525(psb_get_mpicomm\050icontxt\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-335(subroutine)-335(returns)-335(the)-336(MPI)-335(comm)28(unicator)-335(asso)-28(ciated)-335(with)-335(a)-336(P)1(SBLAS)]TJ -14.944 -11.955 Td [(con)28(text)]TJ
 0 g 0 G
 /F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ
 0 g 0 G
@@ -19420,9 +19420,9 @@ BT
 /F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(icomm)]TJ
+ 0 -19.925 Td [(F)96(unction)-384(v)64(alue)]TJ
 0 g 0 G
-/F8 9.9626 Tf 38.08 0 Td [(The)-377(MPI)-378(comm)28(unicator)-377(as)-1(so)-27(ciated)-378(with)-377(the)-378(PSBLAS)-377(virtual)-377(parallel)]TJ -13.173 -11.955 Td [(mac)28(hine.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ
+/F8 9.9626 Tf 78.387 0 Td [(The)-314(MPI)-314(comm)28(unicator)-314(ass)-1(o)-27(ciated)-314(with)-314(the)-315(PS)1(B)-1(LAS)-314(vir)1(tual)]TJ -53.48 -11.955 Td [(parallel)-333(mac)27(hin)1(e)-1(.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ
 0 g 0 G
  89.442 -366.168 Td [(107)]TJ
 0 g 0 G
@@ -19432,7 +19432,7 @@ endstream
 endobj
 1580 0 obj
 <<
-/Length 3025      
+/Length 3044      
 >>
 stream
 0 g 0 G
@@ -19455,7 +19455,7 @@ BT
 /F16 11.9552 Tf 198.729 706.129 Td [(rank)-375(|)-375(Get)-375(the)-375(MPI)-375(rank)]TJ
 0 g 0 G
 0 g 0 G
-/F30 9.9626 Tf -48.024 -18.389 Td [(call)-525(psb_get_rank\050rank,)-525(icontxt,)-525(id\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-333(subroutine)-334(retu)1(rns)-334(the)-333(MPI)-333(rank)-334(of)-333(the)-333(PSBLAS)-334(pr)1(o)-28(cess)]TJ/F11 9.9626 Tf 274.665 0 Td [(id)]TJ
+/F30 9.9626 Tf -48.024 -18.389 Td [(rank)-525(=)-525(psb_get_rank\050icontxt,)-525(id\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-333(subroutine)-334(retu)1(rns)-334(the)-333(MPI)-333(rank)-334(of)-333(the)-333(PSBLAS)-334(pr)1(o)-28(cess)]TJ/F11 9.9626 Tf 274.665 0 Td [(id)]TJ
 0 g 0 G
 /F27 9.9626 Tf -289.609 -19.926 Td [(T)32(yp)-32(e:)]TJ
 0 g 0 G
@@ -19475,9 +19475,9 @@ BT
 /F27 9.9626 Tf -222.543 -21.918 Td [(On)-383(Return)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(rank)]TJ
+ 0 -19.925 Td [(F)96(unciton)-384(v)64(alue)]TJ
 0 g 0 G
-/F8 9.9626 Tf 27.681 0 Td [(The)-333(MPI)-334(rank)-333(asso)-28(ciated)-333(with)-333(the)-334(PSBLAS)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 230.248 0 Td [(id)]TJ/F8 9.9626 Tf 8.617 0 Td [(.)]TJ -241.639 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ
+/F8 9.9626 Tf 78.386 0 Td [(The)-333(MPI)-334(rank)-333(asso)-28(ciated)-333(with)-333(the)-334(PSBLAS)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 230.248 0 Td [(id)]TJ/F8 9.9626 Tf 8.618 0 Td [(.)]TJ -292.345 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ
 0 g 0 G
  89.442 -322.333 Td [(108)]TJ
 0 g 0 G
@@ -28619,8 +28619,8 @@ endobj
 2039 0 obj
 <<
  /Title (Parallel Sparse BLAS V. 3.6.0) /Subject (Parallel Sparse Basic Linear Algebra Subroutines) /Keywords (Computer Science Linear Algebra Fluid Dynamics Parallel Linux MPI PSBLAS Iterative Solvers Preconditioners) /Creator (pdfLaTeX) /Producer ($Id$) /Author()/Title()/Subject()/Creator(LaTeX with hyperref package)/Producer(pdfTeX-1.40.17)/Keywords()
-/CreationDate (D:20190528154807+01'00')
-/ModDate (D:20190528154807+01'00')
+/CreationDate (D:20191120134929Z)
+/ModDate (D:20191120134929Z)
 /Trapped /False
 /PTEX.Fullbanner (This is pdfTeX, Version 3.14159265-2.6-1.40.17 (TeX Live 2016) kpathsea version 6.2.2)
 >>
@@ -28831,7 +28831,7 @@ endobj
 /W [1 3 1]
 /Root 2038 0 R
 /Info 2039 0 R
-/ID [<23726BF4ED0FB1922B6F90535442F1B2> <23726BF4ED0FB1922B6F90535442F1B2>]
+/ID [<3E2A82116FCF1FDC3F29F720B9A71E82> <3E2A82116FCF1FDC3F29F720B9A71E82>]
 /Length 10205     
 >>
 stream
@@ -28865,16 +28865,14 @@ W
 Ïø¬¬¬¬ ¬

 ݬ¬¬"¬&¬!

 ð´¬#¬%¬(¬,¬'

-ý ¬)¬+¬.¬3¬-
@¬/¬1¬2¬5¬:¬4
 Y¬6¬8¬9GC¬<¬?¬;
.ܬ=¬E¬@
E·¬A¬B¬C¬D¬G¬H¬I¬L¬F
Ti¬J¬P¬M
dŬN¬\¬Q
{„¬R¬S¬T¬U¬V¬W¬X¬Y¬Z¬[¬`¬]
—¬^GD¬a
˜¬b


z
Õ‡	
çë
-

ù+

Ù

çGE
Á# 
À!'$
M%-(
0?)+,3.
D–/1294
Y578GF?:
my;=>E@
‚SACDLF
—GIJG!KQM
¯œNPVR
ĻSUXY\W
ÙìZGG———]
ó^_`G abc——
————————	—
-———
——————

Ö
——

4'————"—

Bñ—— —!—(—#

H¦—$—&—'—.—)

OB—*—,—-—2—/

W¹—0GH—4—9—3

Z—5—7—8—;—@—:

lö—<—>—?—B—G—A

�½—C—E—F—M—H

�@—I—K—L—O—T—N

žö—P—R—S—Z—U

¯Œ—V—X—YGI—^—[

¼þ—\—`—aé
—_

Áú—bé
Èééééé	é

ø´ééé
-
 ééééééé

£éééé
2»éGJéé
>{ééé é#é
B“é!é'é$
Mué%é)é*é3é1é(
Pé+é-é.é/é0G%é4é5é6é8é2
pÈé7é:é<é9
ŒØé;GKé?é=
Ÿjé>éOé@
Ÿ÷éAéBéDéLéNéYéP
»šéQéXéZé[é\é]é^é_é`éaébécG
úUG
GGGGGGGG	
öoG
-
N¯G
�4G
ĻG

ârG
#™G
A—G
h
-G
‡oG
í(G

G
.ðG
p™G
°_G
Ø
-G
õ«G
EnG
tåG
ÂpG
Ò¥GGLGMGNGOGPGQGR
Jm
p¯������������� �!�"�#�$�%�&�'�(�)�*�+�,�-�.�/�0�1�2�3�4�5�6�7�8�9�:�;�<�=�>�?�@�A�B�C�D�E�F�G�H�I�J�K�L�M�N�O�P�Q�R�S�T�U�V�W�X�Y�Z�[�\�]�^�_�`�a�b�cÓ
¸¢Ó
ÓÓÓÓÓÓÓÓ	Ó
-ÓÓÓ
ÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓ Ó!Ó"Ó#
¶a
ÎN
+ý ¬)¬+¬.¬3¬-
@¬/¬1¬2¬5¬:¬4
 Y¬6¬8¬9GC¬<¬?¬;
.ܬ=¬E¬@
E·¬A¬B¬C¬D¬G¬H¬I¬L¬F
Ti¬J¬P¬M
dŬN¬\¬Q
{„¬R¬S¬T¬U¬V¬W¬X¬Y¬Z¬[¬`¬]
—¬^GD¬a
˜¬b


°
Õ‡	
çë
+

ù+

ü
GE
÷# 
ö!'$
ƒ%-(
0u)+,3.
DÌ/1294
YJ578GF?:
m¯;=>E@
‚‰ACDLF
—FGIJG!KQM
¯ÒNPVR
ÄñSUXY\W
Ú"ZGG———]
óL^_`G abc——
————————	—
+———
——————

ÖC——

4]————"—

C'—— —!—(—#

HÜ—$—&—'—.—)

Ox—*—,—-—2—/

Wï—0GH—4—9—3

ZE—5—7—8—;—@—:

m,—<—>—?—B—G—A

�ó—C—E—F—M—H

�v—I—K—L—O—T—N

Ÿ,—P—R—S—Z—U

¯Â—V—X—YGI—^—[

½4—\—`—aé
—_

Â0—bé
ÈAééééé	é

øêééé
+
Vééééééé

Ùéééé
2ñéGJéé
>±ééé é#é
BÉé!é'é$
M«é%é)é*é3é1é(
PHé+é-é.é/é0G%é4é5é6é8é2
pþé7é:é<é9
�é;GKé?é=
Ÿ é>éOé@
 -éAéBéDéLéNéYéP
»ÐéQéXéZé[é\é]é^é_é`éaébécG
ú‹G
GGGGGGGG	
ö¥G
+
NåG
�jG
ÄñG

â¨G
#ÏG
AÍG
h@G
‡¥G
í^G

KG
/&G
pÏG
°•G
Ø@G
õáG
E¤G
uG
¦G
ÒÛGGLGMGNGOGPGQGR
J£
på������������� �!�"�#�$�%�&�'�(�)�*�+�,�-�.�/�0�1�2�3�4�5�6�7�8�9�:�;�<�=�>�?�@�A�B�C�D�E�F�G�H�I�J�K�L�M�N�O�P�Q�R�S�T�U�V�W�X�Y�Z�[�\�]�^�_�`�a�b�cÓ
¸ÌÓ
ÓÓÓÓÓÓÓÓ	Ó
+ÓÓÓ
ÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓ Ó!Ó"Ó#
¶—
Îx
 endstream
 endobj
 startxref
-1297998
+1298040
 %%EOF

docs/src/penv.tex

@@ -157,7 +157,7 @@ Specified as: a logical  variable, default value: true.
 \addcontentsline{toc}{subsection}{psb\_get\_mpicomm}
 
 \begin{verbatim}
-call psb_get_mpicomm(icontxt, icomm)
+icomm = psb_get_mpicomm(icontxt)
 \end{verbatim}
 
 This subroutine returns the MPI communicator associated with a PSBLAS context
@@ -174,7 +174,7 @@ Specified as: an integer variable.
 
 \begin{description}
 \item[\bf On Return]
-\item[icomm] The MPI communicator associated with the  PSBLAS virtual parallel machine.\\
+\item[Function value] The MPI communicator associated with the  PSBLAS virtual parallel machine.\\
 Scope: {\bf global}.\\
 Type: {\bf required}.\\
 Intent: {\bf out}.\\
@@ -185,7 +185,7 @@ Intent: {\bf out}.\\
 \addcontentsline{toc}{subsection}{psb\_get\_rank}
 
 \begin{verbatim}
-call psb_get_rank(rank, icontxt, id)
+rank = psb_get_rank(icontxt, id)
 \end{verbatim}
 
 This subroutine returns the MPI rank of the  PSBLAS process $id$
@@ -207,7 +207,7 @@ Specified as: an integer value. $0 \le id \le np-1$\
 
 \begin{description}
 \item[\bf On Return]
-\item[rank] The MPI rank associated with the  PSBLAS process $id$.\\
+\item[Funciton value] The MPI rank associated with the  PSBLAS process $id$.\\
 Scope: {\bf local}.\\
 Type: {\bf required}.\\
 Intent: {\bf out}.\\