 
  
  
  
  
 
      SUBROUTINE PSTRMR2D( UPLO, DIAG, M, N, A, IA, JA, DESCA, B, IB,
     $                     JB, DESCB, ICTXT )
      CHARACTER          DIAG, UPLO
      INTEGER            IA, IB, ICTXT, JA, JB, M, N
      INTEGER            DESCA( * ), DESCB( * )
      REAL               A( * ), B( * )
      SUBROUTINE PCTRMR2D( UPLO, DIAG, M, N, A, IA, JA, DESCA, B, IB,
     $                     JB, DESCB, ICTXT )
      CHARACTER          DIAG, UPLO
      INTEGER            IA, IB, ICTXT, JA, JB, M, N
      INTEGER            DESCA( * ), DESCB( * )
      COMPLEX            A( * ), B( * )
      SUBROUTINE PITRMR2D( UPLO, DIAG, M, N, A, IA, JA, DESCA, B, IB,
     $                     JB, DESCB, ICTXT )
      CHARACTER          DIAG, UPLO
      INTEGER            IA, IB, ICTXT, JA, JB, M, N
      INTEGER            DESCA( * ), DESCB( * )
      INTEGER            A( * ), B( * )