711       CHARACTER*1        SIDE, SIDES, UPLO, UPLOS  local
784                   UPLO = ICHU( ICU: ICU )
788                   CALL DMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA,
808                         UPLOS = UPLO
830      $                     UPLO, M, N, ALPHA, LDA, LDB, BETA, LDC
833                         CALL DSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
847                         ISAME( 2 ) = UPLOS.EQ.UPLO
923       WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA,
980       CHARACTER*1        DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,  local
1046                   UPLO = ICHU( ICU: ICU )
1059                            CALL DMAKE( 'TR', UPLO, DIAG, NA, NA, A,
1073                            UPLOS = UPLO
1093      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1097                               CALL DTRMM( SIDE, UPLO, TRANSA, DIAG, M,
1102      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1106                               CALL DTRSM( SIDE, UPLO, TRANSA, DIAG, M,
1121                            ISAME( 2 ) = UPLOS.EQ.UPLO
1229       WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, TRANSA, DIAG, M,
1286       CHARACTER*1        TRANS, TRANSS, UPLO, UPLOS  local
1352                   UPLO = ICHU( ICU: ICU )
1353                   UPPER = UPLO.EQ.'U'
1363                         CALL DMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1370                         UPLOS = UPLO
1388      $                     WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1392                         CALL DSYRK( UPLO, TRANS, N, K, ALPHA, AA, LDA,
1405                         ISAME( 1 ) = UPLOS.EQ.UPLO
1416                            ISAME( 9 ) = LDERES( 'SY', UPLO, N, N, CS,
1503       WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1561       CHARACTER*1        TRANS, TRANSS, UPLO, UPLOS  local
1644                   UPLO = ICHU( ICU: ICU )
1645                   UPPER = UPLO.EQ.'U'
1655                         CALL DMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1662                         UPLOS = UPLO
1684      $                     WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1688                         CALL DSYR2K( UPLO, TRANS, N, K, ALPHA, AA, LDA,
1701                         ISAME( 1 ) = UPLOS.EQ.UPLO
1714                            ISAME( 11 ) = LDERES( 'SY', UPLO, N, N, CS,
1816       WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
2395       SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,  argument
2421       CHARACTER*1        DIAG, UPLO  local
2435       UPPER = ( SYM.OR.TRI ).AND.UPLO.EQ.'U'
2436       LOWER = ( SYM.OR.TRI ).AND.UPLO.EQ.'L'
2662       LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA )
2678       CHARACTER*1        UPLO  local
2686       UPPER = UPLO.EQ.'U'