pdlamr1d man page on DragonFly
[printable version]
PDLAMR1D(l) ) PDLAMR1D(l)
NAME
SYNOPSIS
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
PURPOSE
ScaLAPACK version 1.7 13 August 2001 PDLAMR1D(l)
[top]
List of man pages available for DragonFly
Copyright (c) for man pages and the logo by the respective OS vendor.
For those who want to learn more, the polarhome community provides shell access and support.
[legal]
[privacy]
[GNU]
[policy]
[cookies]
[netiquette]
[sponsors]
[FAQ]
Polarhome, production since 1999.
Member of Polarhome portal.
Based on Fawad Halim's script.
....................................................................
|
Vote for polarhome
|