1 SUBROUTINE pielset( A, IA, JA, DESCA, ALPHA )
12 INTEGER A( * ), DESCA( * )
98 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_,
99 $ LLD_, MB_, M_, NB_, N_, RSRC_
100 parameter( block_cyclic_2d = 1, dlen_ = 9, dtype_ = 1,
101 $ ctxt_ = 2, m_ = 3, n_ = 4, mb_ = 5, nb_ = 6,
102 $ rsrc_ = 7, csrc_ = 8, lld_ = 9 )
105 INTEGER IACOL, IAROW, IIA, JJA, MYCOL, MYROW, NPCOL,
109 EXTERNAL blacs_gridinfo,
infog2l
115 CALL blacs_gridinfo( desca( ctxt_ ), nprow, npcol, myrow, mycol )
117 CALL infog2l( ia, ja, desca, nprow, npcol, myrow, mycol, iia, jja,
120 IF( myrow.EQ.iarow .AND. mycol.EQ.iacol )
121 $ a( iia+(jja-1)*desca( lld_ ) ) = alpha