diff --git a/base/modules/psb_desc_type.f90 b/base/modules/psb_desc_type.f90 index 35a83799..f74b6085 100644 --- a/base/modules/psb_desc_type.f90 +++ b/base/modules/psb_desc_type.f90 @@ -102,7 +102,7 @@ module psb_descriptor_type ! This is the most important data structure: it holds all the data ! necessary to organize data exchange. The pattern of communication ! among processes depends not only on the allocation of portions of - ! the index space to the various processes, but also on the undelying + ! the index space to the various processes, but also on the underlying ! mesh discretization pattern. Thus building a communication descriptor is ! very much linked to building a sparse matrix (since the matrix sparsity ! pattern embodies the topology of the discretization graph). diff --git a/base/modules/psb_penv_mod.F90 b/base/modules/psb_penv_mod.F90 index 531f91ef..30592bc2 100644 --- a/base/modules/psb_penv_mod.F90 +++ b/base/modules/psb_penv_mod.F90 @@ -1889,18 +1889,19 @@ contains end subroutine psb_isndv - subroutine psb_isndm(ictxt,dat,dst) + subroutine psb_isndm(ictxt,dat,dst,m) use psb_error_mod integer, intent(in) :: ictxt integer, intent(in) :: dat(:,:) integer, intent(in) :: dst + integer, intent(in), optional :: m #if defined(SERIAL_MPI) if (psb_get_errverbosity() >1) then write(0,*) "Warning: process sending a message in serial mode (to itself)" endif #else - call gesd2d(ictxt,dat,dst,0) + call gesd2d(ictxt,dat,dst,0,m) #endif end subroutine psb_isndm @@ -1939,18 +1940,20 @@ contains end subroutine psb_dsndv - subroutine psb_dsndm(ictxt,dat,dst) + subroutine psb_dsndm(ictxt,dat,dst,m) use psb_error_mod integer, intent(in) :: ictxt real(kind(1.d0)), intent(in) :: dat(:,:) integer, intent(in) :: dst + integer, intent(in), optional :: m + #if defined(SERIAL_MPI) if (psb_get_errverbosity() >1) then write(0,*) "Warning: process sending a message in serial mode (to itself)" endif #else - call gesd2d(ictxt,dat,dst,0) + call gesd2d(ictxt,dat,dst,0,m) #endif end subroutine psb_dsndm @@ -1989,18 +1992,20 @@ contains end subroutine psb_zsndv - subroutine psb_zsndm(ictxt,dat,dst) + subroutine psb_zsndm(ictxt,dat,dst,m) use psb_error_mod integer, intent(in) :: ictxt complex(kind(1.d0)), intent(in) :: dat(:,:) integer, intent(in) :: dst + integer, intent(in), optional :: m + #if defined(SERIAL_MPI) if (psb_get_errverbosity() >1) then write(0,*) "Warning: process sending a message in serial mode (to itself)" endif #else - call gesd2d(ictxt,dat,dst,0) + call gesd2d(ictxt,dat,dst,0,m) #endif end subroutine psb_zsndm @@ -2040,11 +2045,13 @@ contains end subroutine psb_ircvv - subroutine psb_ircvm(ictxt,dat,src) + subroutine psb_ircvm(ictxt,dat,src,m) use psb_error_mod integer, intent(in) :: ictxt integer, intent(inout) :: dat(:,:) integer, intent(in) :: src + integer, intent(in), optional :: m + #if defined(SERIAL_MPI) if (psb_get_errverbosity() >0) then @@ -2053,7 +2060,7 @@ contains dat = 0 #else - call gerv2d(ictxt,dat,src,0) + call gerv2d(ictxt,dat,src,0,m) #endif end subroutine psb_ircvm @@ -2094,11 +2101,13 @@ contains end subroutine psb_drcvv - subroutine psb_drcvm(ictxt,dat,src) + subroutine psb_drcvm(ictxt,dat,src,m) use psb_error_mod integer, intent(in) :: ictxt real(kind(1.d0)), intent(inout) :: dat(:,:) integer, intent(in) :: src + integer, intent(in), optional :: m + #if defined(SERIAL_MPI) if (psb_get_errverbosity() >0) then @@ -2106,7 +2115,7 @@ contains endif dat = 0 #else - call gerv2d(ictxt,dat,src,0) + call gerv2d(ictxt,dat,src,0,m) #endif end subroutine psb_drcvm @@ -2147,11 +2156,13 @@ contains end subroutine psb_zrcvv - subroutine psb_zrcvm(ictxt,dat,src) + subroutine psb_zrcvm(ictxt,dat,src,m) use psb_error_mod integer, intent(in) :: ictxt complex(kind(1.d0)), intent(inout) :: dat(:,:) integer, intent(in) :: src + integer, intent(in), optional :: m + #if defined(SERIAL_MPI) if (psb_get_errverbosity() >0) then @@ -2159,7 +2170,7 @@ contains endif dat = 0 #else - call gerv2d(ictxt,dat,src,0) + call gerv2d(ictxt,dat,src,0,m) #endif end subroutine psb_zrcvm diff --git a/docs/userguide.pdf b/docs/userguide.pdf index 3f3f58ce..a023ce06 100644 --- a/docs/userguide.pdf +++ b/docs/userguide.pdf @@ -636,7 +636,7 @@ ET 0 g 0 G 1 0 0 1 -350.8992 -402.6932 cm BT -/F29 9.9626 Tf 355.8805 402.6932 Td[(b)32(y)-383(Sal)-1(v)64(ator)1(e)-384(Fili)-1(pp)-32(on)1(e)]TJ 12.8891 -18.5969 Td[(and)-383(A)-1(lfredo)-383(Butt)-1(ar)1(i)]TJ/F8 9.9626 Tf -115.3393 -25.2387 Td[(\134T)83(or)-333(V)83(ergata")-333(Un)1(iv)28(e)-1(r)1(s)-1(it)28(y)-333(of)-333(Rome)-1(.)-444(Ma)28(y)-333(22,)-333(2007)]TJ +/F29 9.9626 Tf 355.8805 402.6932 Td[(b)32(y)-383(Sal)-1(v)64(ator)1(e)-384(Fili)-1(pp)-32(on)1(e)]TJ 12.8891 -18.5969 Td[(and)-383(A)-1(lfredo)-383(Butt)-1(ar)1(i)]TJ/F8 9.9626 Tf -115.3393 -25.2387 Td[(\134T)83(or)-333(V)83(ergata")-333(Un)1(iv)28(e)-1(r)1(s)-1(it)28(y)-333(of)-333(Rome)-1(.)-444(Ma)28(y)-333(31,)-333(2007)]TJ ET 1 0 0 1 99.8954 90.4377 cm 0 g 0 G @@ -30456,7 +30456,7 @@ stream /ItalicAngle 0 def /isFixedPitch false def end readonly def -/FontName /LQXJVW+CMR9 def +/FontName /AGACPI+CMR9 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def @@ -30540,14 +30540,14 @@ endobj /FirstChar 40 /LastChar 115 /Widths 1467 0 R -/BaseFont /LQXJVW+CMR9 +/BaseFont /AGACPI+CMR9 /FontDescriptor 923 0 R >> endobj 923 0 obj << /Ascent 694 /CapHeight 683 /Descent -194 -/FontName /LQXJVW+CMR9 +/FontName /AGACPI+CMR9 /ItalicAngle 0 /StemV 74 /XHeight 431 @@ -30583,7 +30583,7 @@ stream /ItalicAngle -14.035 def /isFixedPitch false def end readonly def -/FontName /ABTLGJ+CMSY7 def +/FontName /WALDCH+CMSY7 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def @@ -30616,14 +30616,14 @@ endobj /FirstChar 0 /LastChar 49 /Widths 1469 0 R -/BaseFont /ABTLGJ+CMSY7 +/BaseFont /WALDCH+CMSY7 /FontDescriptor 837 0 R >> endobj 837 0 obj << /Ascent 750 /CapHeight 683 /Descent -194 -/FontName /ABTLGJ+CMSY7 +/FontName /WALDCH+CMSY7 /ItalicAngle -14.035 /StemV 93 /XHeight 431 @@ -30659,7 +30659,7 @@ stream /ItalicAngle 0 def /isFixedPitch true def end readonly def -/FontName /LBKIWG+CMTT9 def +/FontName /SIXEGZ+CMTT9 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def @@ -30733,14 +30733,14 @@ endobj /FirstChar 39 /LastChar 122 /Widths 1471 0 R -/BaseFont /LBKIWG+CMTT9 +/BaseFont /SIXEGZ+CMTT9 /FontDescriptor 698 0 R >> endobj 698 0 obj << /Ascent 611 /CapHeight 611 /Descent -222 -/FontName /LBKIWG+CMTT9 +/FontName /SIXEGZ+CMTT9 /ItalicAngle 0 /StemV 74 /XHeight 431 @@ -30776,7 +30776,7 @@ stream /ItalicAngle -14.04 def /isFixedPitch false def end readonly def -/FontName /ESUEGR+CMMI5 def +/FontName /WLCCWX+CMMI5 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def @@ -30809,14 +30809,14 @@ endobj /FirstChar 105 /LastChar 105 /Widths 1473 0 R -/BaseFont /ESUEGR+CMMI5 +/BaseFont /WLCCWX+CMMI5 /FontDescriptor 620 0 R >> endobj 620 0 obj << /Ascent 694 /CapHeight 683 /Descent -194 -/FontName /ESUEGR+CMMI5 +/FontName /WLCCWX+CMMI5 /ItalicAngle -14.04 /StemV 90 /XHeight 431 @@ -30852,7 +30852,7 @@ stream /ItalicAngle -14.035 def /isFixedPitch false def end readonly def -/FontName /BAFYBJ+CMSY10 def +/FontName /EGWRTV+CMSY10 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def @@ -30914,14 +30914,14 @@ endobj /FirstChar 0 /LastChar 120 /Widths 1475 0 R -/BaseFont /BAFYBJ+CMSY10 +/BaseFont /EGWRTV+CMSY10 /FontDescriptor 590 0 R >> endobj 590 0 obj << /Ascent 750 /CapHeight 683 /Descent -194 -/FontName /BAFYBJ+CMSY10 +/FontName /EGWRTV+CMSY10 /ItalicAngle -14.035 /StemV 85 /XHeight 431 @@ -30957,7 +30957,7 @@ stream /ItalicAngle -14.04 def /isFixedPitch false def end readonly def -/FontName /VXVRYQ+CMMI7 def +/FontName /JEQNQW+CMMI7 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def @@ -31011,14 +31011,14 @@ endobj /FirstChar 59 /LastChar 121 /Widths 1477 0 R -/BaseFont /VXVRYQ+CMMI7 +/BaseFont /JEQNQW+CMMI7 /FontDescriptor 587 0 R >> endobj 587 0 obj << /Ascent 694 /CapHeight 683 /Descent -194 -/FontName /VXVRYQ+CMMI7 +/FontName /JEQNQW+CMMI7 /ItalicAngle -14.04 /StemV 81 /XHeight 431 @@ -31054,7 +31054,7 @@ stream /ItalicAngle 0 def /isFixedPitch false def end readonly def -/FontName /SRREDA+CMR8 def +/FontName /UXIIKC+CMR8 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def @@ -31157,14 +31157,14 @@ endobj /FirstChar 40 /LastChar 121 /Widths 1479 0 R -/BaseFont /SRREDA+CMR8 +/BaseFont /UXIIKC+CMR8 /FontDescriptor 577 0 R >> endobj 577 0 obj << /Ascent 694 /CapHeight 683 /Descent -194 -/FontName /SRREDA+CMR8 +/FontName /UXIIKC+CMR8 /ItalicAngle 0 /StemV 76 /XHeight 431 @@ -31200,7 +31200,7 @@ stream /ItalicAngle 0 def /isFixedPitch false def end readonly def -/FontName /YGDTSU+CMR6 def +/FontName /TDZNHG+CMR6 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def @@ -31234,14 +31234,14 @@ endobj /FirstChar 49 /LastChar 50 /Widths 1481 0 R -/BaseFont /YGDTSU+CMR6 +/BaseFont /TDZNHG+CMR6 /FontDescriptor 573 0 R >> endobj 573 0 obj << /Ascent 694 /CapHeight 683 /Descent -194 -/FontName /YGDTSU+CMR6 +/FontName /TDZNHG+CMR6 /ItalicAngle 0 /StemV 83 /XHeight 431 @@ -31277,7 +31277,7 @@ stream /ItalicAngle 0 def /isFixedPitch false def end readonly def -/FontName /HDJWHV+CMR7 def +/FontName /RMQLFF+CMR7 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def @@ -31316,14 +31316,14 @@ endobj /FirstChar 43 /LastChar 58 /Widths 1483 0 R -/BaseFont /HDJWHV+CMR7 +/BaseFont /RMQLFF+CMR7 /FontDescriptor 570 0 R >> endobj 570 0 obj << /Ascent 694 /CapHeight 683 /Descent -194 -/FontName /HDJWHV+CMR7 +/FontName /RMQLFF+CMR7 /ItalicAngle 0 /StemV 79 /XHeight 431 @@ -31359,7 +31359,7 @@ stream /ItalicAngle 0 def /isFixedPitch true def end readonly def -/FontName /JQRWIO+CMTT10 def +/FontName /QVVCDM+CMTT10 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def @@ -31486,14 +31486,14 @@ endobj /FirstChar 40 /LastChar 126 /Widths 1485 0 R -/BaseFont /JQRWIO+CMTT10 +/BaseFont /QVVCDM+CMTT10 /FontDescriptor 565 0 R >> endobj 565 0 obj << /Ascent 611 /CapHeight 611 /Descent -222 -/FontName /JQRWIO+CMTT10 +/FontName /QVVCDM+CMTT10 /ItalicAngle 0 /StemV 69 /XHeight 431 @@ -31529,7 +31529,7 @@ stream /ItalicAngle -14.04 def /isFixedPitch false def end readonly def -/FontName /ZDQTCZ+CMMI10 def +/FontName /OXRYWW+CMMI10 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def @@ -31626,14 +31626,14 @@ endobj /FirstChar 11 /LastChar 122 /Widths 1487 0 R -/BaseFont /ZDQTCZ+CMMI10 +/BaseFont /OXRYWW+CMMI10 /FontDescriptor 559 0 R >> endobj 559 0 obj << /Ascent 694 /CapHeight 683 /Descent -194 -/FontName /ZDQTCZ+CMMI10 +/FontName /OXRYWW+CMMI10 /ItalicAngle -14.04 /StemV 72 /XHeight 431 @@ -31669,7 +31669,7 @@ stream /ItalicAngle -14.04 def /isFixedPitch false def end readonly def -/FontName /YLVLSR+CMTI10 def +/FontName /SVLVYV+CMTI10 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def @@ -31819,14 +31819,14 @@ endobj /FirstChar 11 /LastChar 122 /Widths 1489 0 R -/BaseFont /YLVLSR+CMTI10 +/BaseFont /SVLVYV+CMTI10 /FontDescriptor 544 0 R >> endobj 544 0 obj << /Ascent 694 /CapHeight 683 /Descent -194 -/FontName /YLVLSR+CMTI10 +/FontName /SVLVYV+CMTI10 /ItalicAngle -14.04 /StemV 68 /XHeight 431 @@ -31862,7 +31862,7 @@ stream /ItalicAngle 0 def /isFixedPitch false def end readonly def -/FontName /DLKXEB+CMR10 def +/FontName /GRRMKF+CMR10 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def @@ -32034,14 +32034,14 @@ endobj /FirstChar 11 /LastChar 123 /Widths 1491 0 R -/BaseFont /DLKXEB+CMR10 +/BaseFont /GRRMKF+CMR10 /FontDescriptor 412 0 R >> endobj 412 0 obj << /Ascent 694 /CapHeight 683 /Descent -194 -/FontName /DLKXEB+CMR10 +/FontName /GRRMKF+CMR10 /ItalicAngle 0 /StemV 69 /XHeight 431 @@ -32077,7 +32077,7 @@ stream /ItalicAngle 0 def /isFixedPitch false def end readonly def -/FontName /GXJZUR+CMBX10 def +/FontName /JHDLOL+CMBX10 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def @@ -32217,14 +32217,14 @@ endobj /FirstChar 12 /LastChar 123 /Widths 1493 0 R -/BaseFont /GXJZUR+CMBX10 +/BaseFont /JHDLOL+CMBX10 /FontDescriptor 409 0 R >> endobj 409 0 obj << /Ascent 694 /CapHeight 686 /Descent -194 -/FontName /GXJZUR+CMBX10 +/FontName /JHDLOL+CMBX10 /ItalicAngle 0 /StemV 114 /XHeight 444 @@ -32260,7 +32260,7 @@ stream /ItalicAngle -14.04 def /isFixedPitch false def end readonly def -/FontName /TJVVMT+CMTI12 def +/FontName /VBUZPI+CMTI12 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def @@ -32330,14 +32330,14 @@ endobj /FirstChar 65 /LastChar 121 /Widths 1495 0 R -/BaseFont /TJVVMT+CMTI12 +/BaseFont /VBUZPI+CMTI12 /FontDescriptor 406 0 R >> endobj 406 0 obj << /Ascent 694 /CapHeight 683 /Descent -194 -/FontName /TJVVMT+CMTI12 +/FontName /VBUZPI+CMTI12 /ItalicAngle -14.04 /StemV 63 /XHeight 431 @@ -32373,7 +32373,7 @@ stream /ItalicAngle 0 def /isFixedPitch false def end readonly def -/FontName /HBUIWK+CMBX12 def +/FontName /MOABCN+CMBX12 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def @@ -32509,14 +32509,14 @@ endobj /FirstChar 12 /LastChar 124 /Widths 1497 0 R -/BaseFont /HBUIWK+CMBX12 +/BaseFont /MOABCN+CMBX12 /FontDescriptor 403 0 R >> endobj 403 0 obj << /Ascent 694 /CapHeight 686 /Descent -194 -/FontName /HBUIWK+CMBX12 +/FontName /MOABCN+CMBX12 /ItalicAngle 0 /StemV 109 /XHeight 444 @@ -33411,7 +33411,7 @@ endobj >> endobj 1508 0 obj << /Title (Parallel Sparse BLAS V. 2.1) /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 1702 2007-04-16 09:47:33Z sfilippo $) /Author()/Title()/Subject()/Creator(LaTeX with hyperref package)/Producer(pdfeTeX-1.21a)/Keywords() -/CreationDate (D:20070522125649+02'00') +/CreationDate (D:20070531120316+02'00') /PTEX.Fullbanner (This is pdfeTeX, Version 3.141592-1.21a-2.2 (Web2C 7.5.4) kpathsea version 3.5.4) >> endobj xref @@ -34930,7 +34930,7 @@ trailer /Size 1509 /Root 1507 0 R /Info 1508 0 R -/ID [<0ED73C49BB12ACE01F1DFCFBAC76045C> <0ED73C49BB12ACE01F1DFCFBAC76045C>] +/ID [ ] >> startxref 1116152