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