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