PxGEMR2D

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