psblas-3.3-maint

docs/psblas-3.3.pdf
 docs/src/methods.tex
 krylov/psb_ckrylov.f90
 krylov/psb_dkrylov.f90
 krylov/psb_skrylov.f90
 krylov/psb_zkrylov.f90

Default COND to zero if present.

docs/psblas-3.3.pdf

@@ -21087,7 +21087,7 @@ ET
 endstream
 endobj
 1703 0 obj <<
-/Length 2478      
+/Length 2506      
 >>
 stream
 0 g 0 G
@@ -21104,7 +21104,7 @@ BT
 0 g 0 G
 /F27 9.9626 Tf -24.907 -19.925 Td [(cond)]TJ
 0 g 0 G
-/F8 9.9626 Tf 28.532 0 Td [(An)-280(estimate)-280(of)-279(the)-280(condition)-280(n)28(um)28(b)-28(er)-280(of)-279(matrix)]TJ/F11 9.9626 Tf 204.226 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(;)-298(only)-279(a)27(v)56(ailable)-280(with)-279(the)]TJ/F11 9.9626 Tf -215.323 -11.955 Td [(C)-72(G)]TJ/F8 9.9626 Tf 18.987 0 Td [(metho)-28(d.)]TJ -18.987 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(optional)]TJ/F8 9.9626 Tf -29.611 -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 -50.035 -11.955 Td [(Returned)-333(as:)-445(a)-333(real)-333(n)27(um)28(b)-28(er.)]TJ
+/F8 9.9626 Tf 28.532 0 Td [(An)-280(estimate)-280(of)-279(the)-280(condition)-280(n)28(um)28(b)-28(er)-280(of)-279(matrix)]TJ/F11 9.9626 Tf 204.226 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(;)-298(only)-279(a)27(v)56(ailable)-280(with)-279(the)]TJ/F11 9.9626 Tf -215.323 -11.955 Td [(C)-72(G)]TJ/F8 9.9626 Tf 18.987 0 Td [(metho)-28(d)-333(on)-333(real)-334(data.)]TJ -18.987 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(optional)]TJ/F8 9.9626 Tf -29.611 -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 -50.035 -11.955 Td [(Returned)-333(as:)-445(a)-333(real)-333(n)27(um)28(b)-28(er.)]TJ
 0 g 0 G
 /F27 9.9626 Tf -24.907 -19.925 Td [(info)]TJ
 0 g 0 G
@@ -26203,8 +26203,8 @@ endstream
 endobj
 1890 0 obj <<
  /Title (Parallel Sparse BLAS V. 3.3) /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: userguide.tex 9435 2015-12-04 17:16:14Z sfilippo $) /Author()/Title()/Subject()/Creator(LaTeX with hyperref package)/Producer(pdfTeX-1.40.11)/Keywords()
-/CreationDate (D:20151208154516Z)
-/ModDate (D:20151208154516Z)
+/CreationDate (D:20160106111219Z)
+/ModDate (D:20160106111219Z)
 /Trapped /False
 /PTEX.Fullbanner (This is pdfTeX, Version 3.1415926-1.40.11-2.2 (TeX Live 2010) kpathsea version 6.0.0)
 >> endobj
@@ -26253,7 +26253,7 @@ endobj
 /W [1 3 1]
 /Root 1889 0 R
 /Info 1890 0 R
-/ID [<D0C47BBD64856543D08ABB941E90AA80> <D0C47BBD64856543D08ABB941E90AA80>]
+/ID [<3329BDA968C46C8363971E3AEB356A40> <3329BDA968C46C8363971E3AEB356A40>]
 /Length 9460      
 >>
 stream
@@ -26287,12 +26287,12 @@ yp
 Ðá¡D¡F¡G¡N¡I

 å\¡J¡L¡MÈ9¡T¡O

 ú¡P¡R¡S¡Y¡U
ä¡V¡X¡^¡Z
$¡[¡]¡`¡a¡_
92¡b
>

vºÈ	
-
$
’² "#È:*%
¡{&()0+
§/,./61
­Ê245:7
¶@8<A;
¸‰=?@CHB
ËoDFGÈ;JOI
à5KMNUP
î·QSTW\V
ýlXZ[b]

^`amc
rm

Jmmm	m
A
mmÈ<mmm
mmm
-
Skmmmmmmm
oœmmmm
‡<mm"m
<0C>Dm m&m#
“]m$m(m)m*m2m0m'
•ùm+m-m.m/È=m3m4m6m1
·dm5m9m7
ÑÂm8m<m:
Û¬m;mLm=
Ü8m>m?mAmImKmVmM
÷ÚmNmUmWmXmYmZm[m\m]m^m_m`mambmcÈ
ìsÈ
ÈÈ

:<È

“wÈ

à¤È
{È
I£È
g·È	
Ž@È
-
óÈ
È
1EÈ

pµÈ
±SÈ
ÙÈ
öËÈ
F¤È
v1È
Ä­ÈÈ>È?È@ÈAÈBÈC
1ôbôcø
WÝø
øøøøøøøø	ø
-øøø
øøøøøøøøøøøøøøøøøøø ø!ø"ø#ø$ø%ø&ø'ø(ø)ø*ø+ø,ø-ø.ø/ø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
¥^
+
$
’² "#È:*%
¡{&()0+
§/,./61
­Ê245:7
¶@8<A;
¸‰=?@CHB
ËoDFGÈ;JOI
à5KMNUP
î·QSTW\V
ýlXZ[b]

^`amc
rm

fmmm	m
A
mmÈ<mmm
mmm
+
Skmmmmmmm
oœmmmm
‡<mm"m
<0C>Dm m&m#
“]m$m(m)m*m2m0m'
•ùm+m-m.m/È=m3m4m6m1
·dm5m9m7
ÑÂm8m<m:
ÛÈm;mLm=
ÜTm>m?mAmImKmVmM
÷ömNmUmWmXmYmZm[m\m]m^m_m`mambmcÈ
ì<>È
ÈÈ

:XÈ

““È

àÀÈ
—È
I¿È
gÓÈ	
Ž\È
+
ó$È
›È
1aÈ

pÑÈ
±oÈ
Ù0È
öçÈ
FÀÈ
vMÈ
ÄÉÈÈ>È?È@ÈAÈBÈC
18ôbôcø
Wùø
øøøøøøøø	ø
+øøø
øøøøøøøøøøøøøøøøøøø ø!ø"ø#ø$ø%ø&ø'ø(ø)ø*ø+ø,ø-ø.ø/ø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]
¢â]
]]]
 }
¥z
 endstream
 endobj
 startxref
-1156446
+1156474
 %%EOF

docs/src/methods.tex

@@ -119,11 +119,13 @@ Type: {\bf optional}\\
 Intent: {\bf out}.\\
 Returned  as: a real number.
 \item[cond]  An estimate of the condition number of matrix $A$; only
-  available with the $CG$ method.\\
+  available with the $CG$ method on real data.\\
 Scope: {\bf global} \\
 Type: {\bf optional}\\
 Intent: {\bf out}.\\
-Returned  as: a real number.
+Returned  as: a real number. A correct result will be greater than or
+equal to one; if specified for non-real data, or an error occurred,
+zero is returned.
 \item[info] Error code.\\
 Scope: {\bf local} \\
 Type: {\bf required} \\

krylov/psb_ckrylov.f90

@@ -200,6 +200,9 @@ Subroutine psb_ckrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
 
   call psb_info(ictxt, me, np)
 
+  ! Default return for COND
+  if (present(cond)) cond = szero
+  
   select case(psb_toupper(method))
   case('CG') 
     call  psb_ccg_vect(a,prec,b,x,eps,desc_a,info,&

krylov/psb_dkrylov.f90

@@ -200,6 +200,9 @@ Subroutine psb_dkrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
 
   call psb_info(ictxt, me, np)
 
+  ! Default return for COND
+  if (present(cond)) cond = dzero
+  
   select case(psb_toupper(method))
   case('CG') 
     call  psb_dcg_vect(a,prec,b,x,eps,desc_a,info,&

krylov/psb_skrylov.f90

@@ -200,6 +200,9 @@ Subroutine psb_skrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
 
   call psb_info(ictxt, me, np)
 
+  ! Default return for COND
+  if (present(cond)) cond = szero
+  
   select case(psb_toupper(method))
   case('CG') 
     call  psb_scg_vect(a,prec,b,x,eps,desc_a,info,&

krylov/psb_zkrylov.f90

@@ -200,6 +200,9 @@ Subroutine psb_zkrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
 
   call psb_info(ictxt, me, np)
 
+  ! Default return for COND
+  if (present(cond)) cond = dzero
+  
   select case(psb_toupper(method))
   case('CG') 
     call  psb_zcg_vect(a,prec,b,x,eps,desc_a,info,&