409       LOGICAL            ISAME( 13 )  local
556                            ISAME( 1 ) = TRANSA.EQ.TRANAS
557                            ISAME( 2 ) = TRANSB.EQ.TRANBS
558                            ISAME( 3 ) = MS.EQ.M
559                            ISAME( 4 ) = NS.EQ.N
560                            ISAME( 5 ) = KS.EQ.K
561                            ISAME( 6 ) = ALS.EQ.ALPHA
562                            ISAME( 7 ) = LZE( AS, AA, LAA )
563                            ISAME( 8 ) = LDAS.EQ.LDA
564                            ISAME( 9 ) = LZE( BS, BB, LBB )
565                            ISAME( 10 ) = LDBS.EQ.LDB
566                            ISAME( 11 ) = BLS.EQ.BETA
568                               ISAME( 12 ) = LZE( CS, CC, LCC )
570                               ISAME( 12 ) = LZERES( 'GE', ' ', M, N, CS,
573                            ISAME( 13 ) = LDCS.EQ.LDC
580                               SAME = SAME.AND.ISAME( I )
581                               IF( .NOT.ISAME( I ) )
694       LOGICAL            ISAME( 13 )  local
831                         ISAME( 1 ) = SIDES.EQ.SIDE
832                         ISAME( 2 ) = UPLOS.EQ.UPLO
833                         ISAME( 3 ) = MS.EQ.M
834                         ISAME( 4 ) = NS.EQ.N
835                         ISAME( 5 ) = ALS.EQ.ALPHA
836                         ISAME( 6 ) = LZE( AS, AA, LAA )
837                         ISAME( 7 ) = LDAS.EQ.LDA
838                         ISAME( 8 ) = LZE( BS, BB, LBB )
839                         ISAME( 9 ) = LDBS.EQ.LDB
840                         ISAME( 10 ) = BLS.EQ.BETA
842                            ISAME( 11 ) = LZE( CS, CC, LCC )
844                            ISAME( 11 ) = LZERES( 'GE', ' ', M, N, CS,
847                         ISAME( 12 ) = LDCS.EQ.LDC
854                            SAME = SAME.AND.ISAME( I )
855                            IF( .NOT.ISAME( I ) )
975       LOGICAL            ISAME( 13 )  local
1110                            ISAME( 1 ) = SIDES.EQ.SIDE
1111                            ISAME( 2 ) = UPLOS.EQ.UPLO
1112                            ISAME( 3 ) = TRANAS.EQ.TRANSA
1113                            ISAME( 4 ) = DIAGS.EQ.DIAG
1114                            ISAME( 5 ) = MS.EQ.M
1115                            ISAME( 6 ) = NS.EQ.N
1116                            ISAME( 7 ) = ALS.EQ.ALPHA
1117                            ISAME( 8 ) = LZE( AS, AA, LAA )
1118                            ISAME( 9 ) = LDAS.EQ.LDA
1120                               ISAME( 10 ) = LZE( BS, BB, LBB )
1122                               ISAME( 10 ) = LZERES( 'GE', ' ', M, N, BS,
1125                            ISAME( 11 ) = LDBS.EQ.LDB
1132                               SAME = SAME.AND.ISAME( I )
1133                               IF( .NOT.ISAME( I ) )
1284       LOGICAL            ISAME( 13 )  local
1431                         ISAME( 1 ) = UPLOS.EQ.UPLO
1432                         ISAME( 2 ) = TRANSS.EQ.TRANS
1433                         ISAME( 3 ) = NS.EQ.N
1434                         ISAME( 4 ) = KS.EQ.K
1436                            ISAME( 5 ) = RALS.EQ.RALPHA
1438                            ISAME( 5 ) = ALS.EQ.ALPHA
1440                         ISAME( 6 ) = LZE( AS, AA, LAA )
1441                         ISAME( 7 ) = LDAS.EQ.LDA
1443                            ISAME( 8 ) = RBETS.EQ.RBETA
1445                            ISAME( 8 ) = BETS.EQ.BETA
1448                            ISAME( 9 ) = LZE( CS, CC, LCC )
1450                            ISAME( 9 ) = LZERES( SNAME( 2: 3 ), UPLO, N,
1453                         ISAME( 10 ) = LDCS.EQ.LDC
1460                            SAME = SAME.AND.ISAME( I )
1461                            IF( .NOT.ISAME( I ) )
1617       LOGICAL            ISAME( 13 )  local
1777                         ISAME( 1 ) = UPLOS.EQ.UPLO
1778                         ISAME( 2 ) = TRANSS.EQ.TRANS
1779                         ISAME( 3 ) = NS.EQ.N
1780                         ISAME( 4 ) = KS.EQ.K
1781                         ISAME( 5 ) = ALS.EQ.ALPHA
1782                         ISAME( 6 ) = LZE( AS, AA, LAA )
1783                         ISAME( 7 ) = LDAS.EQ.LDA
1784                         ISAME( 8 ) = LZE( BS, BB, LBB )
1785                         ISAME( 9 ) = LDBS.EQ.LDB
1787                            ISAME( 10 ) = RBETS.EQ.RBETA
1789                            ISAME( 10 ) = BETS.EQ.BETA
1792                            ISAME( 11 ) = LZE( CS, CC, LCC )
1794                            ISAME( 11 ) = LZERES( 'HE', UPLO, N, N, CS,
1797                         ISAME( 12 ) = LDCS.EQ.LDC
1804                            SAME = SAME.AND.ISAME( I )
1805                            IF( .NOT.ISAME( I ) )