780       CHARACTER*1        SIDE, SIDES, UPLO, UPLOS  local
1024       SUBROUTINE SPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N,  argument
1028       CHARACTER*1      SIDE, UPLO  local
1089       CHARACTER*1        DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,  local
1370       SUBROUTINE SPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,  argument
1374       CHARACTER*1      SIDE, UPLO, TRANSA, DIAG  local
1449       CHARACTER*1        TRANS, TRANSS, UPLO, UPLOS  local
1697       SUBROUTINE SPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1701       CHARACTER*1      UPLO, TRANSA  local
1766       CHARACTER*1        TRANS, TRANSS, UPLO, UPLOS  local
2053       SUBROUTINE SPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2057       CHARACTER*1      UPLO, TRANSA  local
2086       SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,  argument
2112       CHARACTER*1        DIAG, UPLO  local
2369       CHARACTER*1        UPLO  local