fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed optional number of rows in send/receive.

Browse Source
psblas3-type-indexed
Salvatore Filippone 18 years ago
parent 801d3498a0
commit 5982dde3de
3 changed files with 75 additions and 64 deletions
Show Stats Download Patch File Download Diff File

2
base/modules/psb_desc_type.f90
Unescape Escape View File

@ -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).

35
base/modules/psb_penv_mod.F90
Unescape Escape View File

@ -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

102
docs/userguide.pdf
Unescape Escape View File

@ -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 [<DFC08771D4EB2059147090F425178EF5> <DFC08771D4EB2059147090F425178EF5>]
>>
startxref
1116152

Write Preview
Loading…
Cancel
Save