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 ) = LDE( AS, AA, LAA )
610                            ISAME( 8 ) = LDAS.EQ.LDA
611                            ISAME( 9 ) = LDE( BS, BB, LBB )
612                            ISAME( 10 ) = LDBS.EQ.LDB
613                            ISAME( 11 ) = BLS.EQ.BETA
615                               ISAME( 12 ) = LDE( CS, CC, LCC )
617                               ISAME( 12 ) = LDERES( 'GE', ' ', M, N, CS,
620                            ISAME( 13 ) = LDCS.EQ.LDC
627                               SAME = SAME.AND.ISAME( I )
628                               IF( .NOT.ISAME( I ) )
779       LOGICAL            ISAME( 13 )  local
912                         ISAME( 1 ) = SIDES.EQ.SIDE
913                         ISAME( 2 ) = UPLOS.EQ.UPLO
914                         ISAME( 3 ) = MS.EQ.M
915                         ISAME( 4 ) = NS.EQ.N
916                         ISAME( 5 ) = ALS.EQ.ALPHA
917                         ISAME( 6 ) = LDE( AS, AA, LAA )
918                         ISAME( 7 ) = LDAS.EQ.LDA
919                         ISAME( 8 ) = LDE( BS, BB, LBB )
920                         ISAME( 9 ) = LDBS.EQ.LDB
921                         ISAME( 10 ) = BLS.EQ.BETA
923                            ISAME( 11 ) = LDE( CS, CC, LCC )
925                            ISAME( 11 ) = LDERES( 'GE', ' ', M, N, CS,
928                         ISAME( 12 ) = LDCS.EQ.LDC
935                            SAME = SAME.AND.ISAME( I )
936                            IF( .NOT.ISAME( I ) )
1090       LOGICAL            ISAME( 13 )  local
1227                            ISAME( 1 ) = SIDES.EQ.SIDE
1228                            ISAME( 2 ) = UPLOS.EQ.UPLO
1229                            ISAME( 3 ) = TRANAS.EQ.TRANSA
1230                            ISAME( 4 ) = DIAGS.EQ.DIAG
1231                            ISAME( 5 ) = MS.EQ.M
1232                            ISAME( 6 ) = NS.EQ.N
1233                            ISAME( 7 ) = ALS.EQ.ALPHA
1234                            ISAME( 8 ) = LDE( AS, AA, LAA )
1235                            ISAME( 9 ) = LDAS.EQ.LDA
1237                               ISAME( 10 ) = LDE( BS, BB, LBB )
1239                               ISAME( 10 ) = LDERES( 'GE', ' ', M, N, BS,
1242                            ISAME( 11 ) = LDBS.EQ.LDB
1249                               SAME = SAME.AND.ISAME( I )
1250                               IF( .NOT.ISAME( I ) )
1448       LOGICAL            ISAME( 13 )  local
1563                         ISAME( 1 ) = UPLOS.EQ.UPLO
1564                         ISAME( 2 ) = TRANSS.EQ.TRANS
1565                         ISAME( 3 ) = NS.EQ.N
1566                         ISAME( 4 ) = KS.EQ.K
1567                         ISAME( 5 ) = ALS.EQ.ALPHA
1568                         ISAME( 6 ) = LDE( AS, AA, LAA )
1569                         ISAME( 7 ) = LDAS.EQ.LDA
1570                         ISAME( 8 ) = BETS.EQ.BETA
1572                            ISAME( 9 ) = LDE( CS, CC, LCC )
1574                            ISAME( 9 ) = LDERES( 'SY', UPLO, N, N, CS,
1577                         ISAME( 10 ) = LDCS.EQ.LDC
1584                            SAME = SAME.AND.ISAME( I )
1585                            IF( .NOT.ISAME( I ) )
1765       LOGICAL            ISAME( 13 )  local
1902                         ISAME( 1 ) = UPLOS.EQ.UPLO
1903                         ISAME( 2 ) = TRANSS.EQ.TRANS
1904                         ISAME( 3 ) = NS.EQ.N
1905                         ISAME( 4 ) = KS.EQ.K
1906                         ISAME( 5 ) = ALS.EQ.ALPHA
1907                         ISAME( 6 ) = LDE( AS, AA, LAA )
1908                         ISAME( 7 ) = LDAS.EQ.LDA
1909                         ISAME( 8 ) = LDE( BS, BB, LBB )
1910                         ISAME( 9 ) = LDBS.EQ.LDB
1911                         ISAME( 10 ) = BETS.EQ.BETA
1913                            ISAME( 11 ) = LDE( CS, CC, LCC )
1915                            ISAME( 11 ) = LDERES( 'SY', UPLO, N, N, CS,
1918                         ISAME( 12 ) = LDCS.EQ.LDC
1925                            SAME = SAME.AND.ISAME( I )
1926                            IF( .NOT.ISAME( I ) )