455       LOGICAL            ISAME( 13 )  local
603                            ISAME( 1 ) = TRANSA.EQ.TRANAS
604                            ISAME( 2 ) = TRANSB.EQ.TRANBS
605                            ISAME( 3 ) = MS.EQ.M
606                            ISAME( 4 ) = NS.EQ.N
607                            ISAME( 5 ) = KS.EQ.K
608                            ISAME( 6 ) = ALS.EQ.ALPHA
609                            ISAME( 7 ) = LSE( AS, AA, LAA )
610                            ISAME( 8 ) = LDAS.EQ.LDA
611                            ISAME( 9 ) = LSE( BS, BB, LBB )
612                            ISAME( 10 ) = LDBS.EQ.LDB
613                            ISAME( 11 ) = BLS.EQ.BETA
615                               ISAME( 12 ) = LSE( CS, CC, LCC )
617                               ISAME( 12 ) = LSERES( 'GE', ' ', M, N, CS,
620                            ISAME( 13 ) = LDCS.EQ.LDC
627                               SAME = SAME.AND.ISAME( I )
628                               IF( .NOT.ISAME( I ) )
783       LOGICAL            ISAME( 13 )  local
916                         ISAME( 1 ) = SIDES.EQ.SIDE
917                         ISAME( 2 ) = UPLOS.EQ.UPLO
918                         ISAME( 3 ) = MS.EQ.M
919                         ISAME( 4 ) = NS.EQ.N
920                         ISAME( 5 ) = ALS.EQ.ALPHA
921                         ISAME( 6 ) = LSE( AS, AA, LAA )
922                         ISAME( 7 ) = LDAS.EQ.LDA
923                         ISAME( 8 ) = LSE( BS, BB, LBB )
924                         ISAME( 9 ) = LDBS.EQ.LDB
925                         ISAME( 10 ) = BLS.EQ.BETA
927                            ISAME( 11 ) = LSE( CS, CC, LCC )
929                            ISAME( 11 ) = LSERES( 'GE', ' ', M, N, CS,
932                         ISAME( 12 ) = LDCS.EQ.LDC
939                            SAME = SAME.AND.ISAME( I )
940                            IF( .NOT.ISAME( I ) )
1094       LOGICAL            ISAME( 13 )  local
1231                            ISAME( 1 ) = SIDES.EQ.SIDE
1232                            ISAME( 2 ) = UPLOS.EQ.UPLO
1233                            ISAME( 3 ) = TRANAS.EQ.TRANSA
1234                            ISAME( 4 ) = DIAGS.EQ.DIAG
1235                            ISAME( 5 ) = MS.EQ.M
1236                            ISAME( 6 ) = NS.EQ.N
1237                            ISAME( 7 ) = ALS.EQ.ALPHA
1238                            ISAME( 8 ) = LSE( AS, AA, LAA )
1239                            ISAME( 9 ) = LDAS.EQ.LDA
1241                               ISAME( 10 ) = LSE( BS, BB, LBB )
1243                               ISAME( 10 ) = LSERES( 'GE', ' ', M, N, BS,
1246                            ISAME( 11 ) = LDBS.EQ.LDB
1253                               SAME = SAME.AND.ISAME( I )
1254                               IF( .NOT.ISAME( I ) )
1453       LOGICAL            ISAME( 13 )  local
1568                         ISAME( 1 ) = UPLOS.EQ.UPLO
1569                         ISAME( 2 ) = TRANSS.EQ.TRANS
1570                         ISAME( 3 ) = NS.EQ.N
1571                         ISAME( 4 ) = KS.EQ.K
1572                         ISAME( 5 ) = ALS.EQ.ALPHA
1573                         ISAME( 6 ) = LSE( AS, AA, LAA )
1574                         ISAME( 7 ) = LDAS.EQ.LDA
1575                         ISAME( 8 ) = BETS.EQ.BETA
1577                            ISAME( 9 ) = LSE( CS, CC, LCC )
1579                            ISAME( 9 ) = LSERES( 'SY', UPLO, N, N, CS,
1582                         ISAME( 10 ) = LDCS.EQ.LDC
1589                            SAME = SAME.AND.ISAME( I )
1590                            IF( .NOT.ISAME( I ) )
1770       LOGICAL            ISAME( 13 )  local
1906                         ISAME( 1 ) = UPLOS.EQ.UPLO
1907                         ISAME( 2 ) = TRANSS.EQ.TRANS
1908                         ISAME( 3 ) = NS.EQ.N
1909                         ISAME( 4 ) = KS.EQ.K
1910                         ISAME( 5 ) = ALS.EQ.ALPHA
1911                         ISAME( 6 ) = LSE( AS, AA, LAA )
1912                         ISAME( 7 ) = LDAS.EQ.LDA
1913                         ISAME( 8 ) = LSE( BS, BB, LBB )
1914                         ISAME( 9 ) = LDBS.EQ.LDB
1915                         ISAME( 10 ) = BETS.EQ.BETA
1917                            ISAME( 11 ) = LSE( CS, CC, LCC )
1919                            ISAME( 11 ) = LSERES( 'SY', UPLO, N, N, CS,
1922                         ISAME( 12 ) = LDCS.EQ.LDC
1929                            SAME = SAME.AND.ISAME( I )
1930                            IF( .NOT.ISAME( I ) )