SUBROUTINE PSGEMR2D( M, N, A, IA, JA, DESCA, B, IB, JB, DESCB,
$ ICTXT )
INTEGER IA, IB, ICTXT, JA, JB, M, N
INTEGER DESCA( * ), DESCB( * )
REAL A( * ), B( * )
SUBROUTINE PCGEMR2D( M, N, A, IA, JA, DESCA, B, IB, JB, DESCB,
$ ICTXT )
INTEGER IA, IB, ICTXT, JA, JB, M, N
INTEGER DESCA( * ), DESCB( * )
COMPLEX A( * ), B( * )
SUBROUTINE PIGEMR2D( M, N, A, IA, JA, DESCA, B, IB, JB, DESCB,
$ ICTXT )
INTEGER IA, IB, ICTXT, JA, JB, M, N
INTEGER DESCA( * ), DESCB( * )
INTEGER A( * ), B( * )