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