GSP
Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Support
Contact Us
Online Help
Handbooks
Domain Status
Man Pages

FAQ
Virtual Servers
Pricing
Billing
Technical

Network
Facilities
Connectivity
Topology Map

Miscellaneous
Server Agreement
Year 2038
Credits
 

USA Flag

 

 

Man Pages
PDLAMR1D(l) ) PDLAMR1D(l)

SUBROUTINE PDLAMR1D(
N, A, IA, JA, DESCA, B, IB, JB, DESCB )
INTEGER IA, IB, JA, JB, N INTEGER DESCA( * ), DESCB( * ) DOUBLE PRECISION A( * ), B( * ) INTEGER BLOCK_CYCLIC_2D, DLEN_, DTYPE_, CTXT_, M_, N_, MB_, NB_, RSRC_, CSRC_, LLD_ PARAMETER ( BLOCK_CYCLIC_2D = 1, DLEN_ = 9, DTYPE_ = 1, CTXT_ = 2, M_ = 3, N_ = 4, MB_ = 5, NB_ = 6, RSRC_ = 7, CSRC_ = 8, LLD_ = 9 ) INTEGER I, ICTXT, MYCOL, MYROW, NPCOL, NPROW, NQ INTEGER DESCAA( DLEN_ ), DESCBB( DLEN_ ) EXTERNAL BLACS_GRIDINFO, DGEBR2D, DGEBS2D, PDGEMR2D INTEGER NUMROC EXTERNAL NUMROC IF( BLOCK_CYCLIC_2D*CSRC_*CTXT_*DLEN_*DTYPE_*LLD_*MB_*M_*NB_*N_* RSRC_.LT.0 )RETURN IF( N.LE.0 ) RETURN DO 10 I = 1, DLEN_ DESCAA( I ) = DESCA( I ) DESCBB( I ) = DESCB( I ) 10 CONTINUE DESCAA( M_ ) = 1 DESCBB( M_ ) = 1 DESCAA( LLD_ ) = 1 DESCBB( LLD_ ) = 1 ICTXT = DESCB( CTXT_ ) CALL PDGEMR2D( 1, N, A, IA, JA, DESCAA, B, IB, JB, DESCBB, ICTXT ) CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) NQ = NUMROC( N, DESCB( NB_ ), MYCOL, 0, NPCOL ) IF( MYROW.EQ.0 ) THEN CALL DGEBS2D( ICTXT, 'C', ' ', NQ, 1, B, NQ ) ELSE CALL DGEBR2D( ICTXT, 'C', ' ', NQ, 1, B, NQ, 0, MYCOL ) END IF RETURN END

13 August 2001 ScaLAPACK version 1.7

Search for    or go to Top of page |  Section l |  Main Index

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with ManDoc.