PDLAMR1D(3)              MathKeisan ScaLAPACK routine              PDLAMR1D(3)



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(3)