469       LOGICAL            ISAME( 13 )  local
617                            ISAME( 1 ) = TRANSA.EQ.TRANAS
618                            ISAME( 2 ) = TRANSB.EQ.TRANBS
619                            ISAME( 3 ) = MS.EQ.M
620                            ISAME( 4 ) = NS.EQ.N
621                            ISAME( 5 ) = KS.EQ.K
622                            ISAME( 6 ) = ALS.EQ.ALPHA
623                            ISAME( 7 ) = LZE( AS, AA, LAA )
624                            ISAME( 8 ) = LDAS.EQ.LDA
625                            ISAME( 9 ) = LZE( BS, BB, LBB )
626                            ISAME( 10 ) = LDBS.EQ.LDB
627                            ISAME( 11 ) = BLS.EQ.BETA
629                               ISAME( 12 ) = LZE( CS, CC, LCC )
631                              ISAME( 12 ) = LZERES( 'ge', ' ', M, N, CS,
634                            ISAME( 13 ) = LDCS.EQ.LDC
641                               SAME = SAME.AND.ISAME( I )
642                               IF( .NOT.ISAME( I ) )
799       LOGICAL            ISAME( 13 )  local
939                         ISAME( 1 ) = SIDES.EQ.SIDE
940                         ISAME( 2 ) = UPLOS.EQ.UPLO
941                         ISAME( 3 ) = MS.EQ.M
942                         ISAME( 4 ) = NS.EQ.N
943                         ISAME( 5 ) = ALS.EQ.ALPHA
944                         ISAME( 6 ) = LZE( AS, AA, LAA )
945                         ISAME( 7 ) = LDAS.EQ.LDA
946                         ISAME( 8 ) = LZE( BS, BB, LBB )
947                         ISAME( 9 ) = LDBS.EQ.LDB
948                         ISAME( 10 ) = BLS.EQ.BETA
950                            ISAME( 11 ) = LZE( CS, CC, LCC )
952                            ISAME( 11 ) = LZERES( 'ge', ' ', M, N, CS,
955                         ISAME( 12 ) = LDCS.EQ.LDC
962                            SAME = SAME.AND.ISAME( I )
963                            IF( .NOT.ISAME( I ) )
1121       LOGICAL            ISAME( 13 )  local
1258                            ISAME( 1 ) = SIDES.EQ.SIDE
1259                            ISAME( 2 ) = UPLOS.EQ.UPLO
1260                            ISAME( 3 ) = TRANAS.EQ.TRANSA
1261                            ISAME( 4 ) = DIAGS.EQ.DIAG
1262                            ISAME( 5 ) = MS.EQ.M
1263                            ISAME( 6 ) = NS.EQ.N
1264                            ISAME( 7 ) = ALS.EQ.ALPHA
1265                            ISAME( 8 ) = LZE( AS, AA, LAA )
1266                            ISAME( 9 ) = LDAS.EQ.LDA
1268                               ISAME( 10 ) = LZE( BS, BB, LBB )
1270                              ISAME( 10 ) = LZERES( 'ge', ' ', M, N, BS,
1273                            ISAME( 11 ) = LDBS.EQ.LDB
1280                               SAME = SAME.AND.ISAME( I )
1281                               IF( .NOT.ISAME( I ) )
1484       LOGICAL            ISAME( 13 )  local
1633                         ISAME( 1 ) = UPLOS.EQ.UPLO
1634                         ISAME( 2 ) = TRANSS.EQ.TRANS
1635                         ISAME( 3 ) = NS.EQ.N
1636                         ISAME( 4 ) = KS.EQ.K
1638                            ISAME( 5 ) = RALS.EQ.RALPHA
1640                            ISAME( 5 ) = ALS.EQ.ALPHA
1642                         ISAME( 6 ) = LZE( AS, AA, LAA )
1643                         ISAME( 7 ) = LDAS.EQ.LDA
1645                            ISAME( 8 ) = RBETS.EQ.RBETA
1647                            ISAME( 8 ) = BETS.EQ.BETA
1650                            ISAME( 9 ) = LZE( CS, CC, LCC )
1652                            ISAME( 9 ) = LZERES( SNAME( 8: 9 ), UPLO, N,
1655                         ISAME( 10 ) = LDCS.EQ.LDC
1662                            SAME = SAME.AND.ISAME( I )
1663                            IF( .NOT.ISAME( I ) )
1894       LOGICAL            ISAME( 13 )  local
2058                         ISAME( 1 ) = UPLOS.EQ.UPLO
2059                         ISAME( 2 ) = TRANSS.EQ.TRANS
2060                         ISAME( 3 ) = NS.EQ.N
2061                         ISAME( 4 ) = KS.EQ.K
2062                         ISAME( 5 ) = ALS.EQ.ALPHA
2063                         ISAME( 6 ) = LZE( AS, AA, LAA )
2064                         ISAME( 7 ) = LDAS.EQ.LDA
2065                         ISAME( 8 ) = LZE( BS, BB, LBB )
2066                         ISAME( 9 ) = LDBS.EQ.LDB
2068                            ISAME( 10 ) = RBETS.EQ.RBETA
2070                            ISAME( 10 ) = BETS.EQ.BETA
2073                            ISAME( 11 ) = LZE( CS, CC, LCC )
2075                            ISAME( 11 ) = LZERES( 'he', UPLO, N, N, CS,
2078                         ISAME( 12 ) = LDCS.EQ.LDC
2085                            SAME = SAME.AND.ISAME( I )
2086                            IF( .NOT.ISAME( I ) )