468       LOGICAL            ISAME( 13 )  local
616                            ISAME( 1 ) = TRANSA.EQ.TRANAS
617                            ISAME( 2 ) = TRANSB.EQ.TRANBS
618                            ISAME( 3 ) = MS.EQ.M
619                            ISAME( 4 ) = NS.EQ.N
620                            ISAME( 5 ) = KS.EQ.K
621                            ISAME( 6 ) = ALS.EQ.ALPHA
622                            ISAME( 7 ) = LCE( AS, AA, LAA )
623                            ISAME( 8 ) = LDAS.EQ.LDA
624                            ISAME( 9 ) = LCE( BS, BB, LBB )
625                            ISAME( 10 ) = LDBS.EQ.LDB
626                            ISAME( 11 ) = BLS.EQ.BETA
628                               ISAME( 12 ) = LCE( CS, CC, LCC )
630                              ISAME( 12 ) = LCERES( 'ge', ' ', M, N, CS,
633                            ISAME( 13 ) = LDCS.EQ.LDC
640                               SAME = SAME.AND.ISAME( I )
641                               IF( .NOT.ISAME( I ) )
798       LOGICAL            ISAME( 13 )  local
938                         ISAME( 1 ) = SIDES.EQ.SIDE
939                         ISAME( 2 ) = UPLOS.EQ.UPLO
940                         ISAME( 3 ) = MS.EQ.M
941                         ISAME( 4 ) = NS.EQ.N
942                         ISAME( 5 ) = ALS.EQ.ALPHA
943                         ISAME( 6 ) = LCE( AS, AA, LAA )
944                         ISAME( 7 ) = LDAS.EQ.LDA
945                         ISAME( 8 ) = LCE( BS, BB, LBB )
946                         ISAME( 9 ) = LDBS.EQ.LDB
947                         ISAME( 10 ) = BLS.EQ.BETA
949                            ISAME( 11 ) = LCE( CS, CC, LCC )
951                            ISAME( 11 ) = LCERES( 'ge', ' ', M, N, CS,
954                         ISAME( 12 ) = LDCS.EQ.LDC
961                            SAME = SAME.AND.ISAME( I )
962                            IF( .NOT.ISAME( I ) )
1120       LOGICAL            ISAME( 13 )  local
1257                            ISAME( 1 ) = SIDES.EQ.SIDE
1258                            ISAME( 2 ) = UPLOS.EQ.UPLO
1259                            ISAME( 3 ) = TRANAS.EQ.TRANSA
1260                            ISAME( 4 ) = DIAGS.EQ.DIAG
1261                            ISAME( 5 ) = MS.EQ.M
1262                            ISAME( 6 ) = NS.EQ.N
1263                            ISAME( 7 ) = ALS.EQ.ALPHA
1264                            ISAME( 8 ) = LCE( AS, AA, LAA )
1265                            ISAME( 9 ) = LDAS.EQ.LDA
1267                               ISAME( 10 ) = LCE( BS, BB, LBB )
1269                              ISAME( 10 ) = LCERES( 'ge', ' ', M, N, BS,
1272                            ISAME( 11 ) = LDBS.EQ.LDB
1279                               SAME = SAME.AND.ISAME( I )
1280                               IF( .NOT.ISAME( I ) )
1483       LOGICAL            ISAME( 13 )  local
1632                         ISAME( 1 ) = UPLOS.EQ.UPLO
1633                         ISAME( 2 ) = TRANSS.EQ.TRANS
1634                         ISAME( 3 ) = NS.EQ.N
1635                         ISAME( 4 ) = KS.EQ.K
1637                            ISAME( 5 ) = RALS.EQ.RALPHA
1639                            ISAME( 5 ) = ALS.EQ.ALPHA
1641                         ISAME( 6 ) = LCE( AS, AA, LAA )
1642                         ISAME( 7 ) = LDAS.EQ.LDA
1644                            ISAME( 8 ) = RBETS.EQ.RBETA
1646                            ISAME( 8 ) = BETS.EQ.BETA
1649                            ISAME( 9 ) = LCE( CS, CC, LCC )
1651                            ISAME( 9 ) = LCERES( SNAME( 8: 9 ), UPLO, N,
1654                         ISAME( 10 ) = LDCS.EQ.LDC
1661                            SAME = SAME.AND.ISAME( I )
1662                            IF( .NOT.ISAME( I ) )
1893       LOGICAL            ISAME( 13 )  local
2057                         ISAME( 1 ) = UPLOS.EQ.UPLO
2058                         ISAME( 2 ) = TRANSS.EQ.TRANS
2059                         ISAME( 3 ) = NS.EQ.N
2060                         ISAME( 4 ) = KS.EQ.K
2061                         ISAME( 5 ) = ALS.EQ.ALPHA
2062                         ISAME( 6 ) = LCE( AS, AA, LAA )
2063                         ISAME( 7 ) = LDAS.EQ.LDA
2064                         ISAME( 8 ) = LCE( BS, BB, LBB )
2065                         ISAME( 9 ) = LDBS.EQ.LDB
2067                            ISAME( 10 ) = RBETS.EQ.RBETA
2069                            ISAME( 10 ) = BETS.EQ.BETA
2072                            ISAME( 11 ) = LCE( CS, CC, LCC )
2074                            ISAME( 11 ) = LCERES( 'he', UPLO, N, N, CS,
2077                         ISAME( 12 ) = LDCS.EQ.LDC
2084                            SAME = SAME.AND.ISAME( I )
2085                            IF( .NOT.ISAME( I ) )