394       LOGICAL            ISAME( 13 )  local
541                            ISAME( 1 ) = TRANSA.EQ.TRANAS
542                            ISAME( 2 ) = TRANSB.EQ.TRANBS
543                            ISAME( 3 ) = MS.EQ.M
544                            ISAME( 4 ) = NS.EQ.N
545                            ISAME( 5 ) = KS.EQ.K
546                            ISAME( 6 ) = ALS.EQ.ALPHA
547                            ISAME( 7 ) = LDE( AS, AA, LAA )
548                            ISAME( 8 ) = LDAS.EQ.LDA
549                            ISAME( 9 ) = LDE( BS, BB, LBB )
550                            ISAME( 10 ) = LDBS.EQ.LDB
551                            ISAME( 11 ) = BLS.EQ.BETA
553                               ISAME( 12 ) = LDE( CS, CC, LCC )
555                               ISAME( 12 ) = LDERES( 'GE', ' ', M, N, CS,
558                            ISAME( 13 ) = LDCS.EQ.LDC
565                               SAME = SAME.AND.ISAME( I )
566                               IF( .NOT.ISAME( I ) )
675       LOGICAL            ISAME( 13 )  local
807                         ISAME( 1 ) = SIDES.EQ.SIDE
808                         ISAME( 2 ) = UPLOS.EQ.UPLO
809                         ISAME( 3 ) = MS.EQ.M
810                         ISAME( 4 ) = NS.EQ.N
811                         ISAME( 5 ) = ALS.EQ.ALPHA
812                         ISAME( 6 ) = LDE( AS, AA, LAA )
813                         ISAME( 7 ) = LDAS.EQ.LDA
814                         ISAME( 8 ) = LDE( BS, BB, LBB )
815                         ISAME( 9 ) = LDBS.EQ.LDB
816                         ISAME( 10 ) = BLS.EQ.BETA
818                            ISAME( 11 ) = LDE( CS, CC, LCC )
820                            ISAME( 11 ) = LDERES( 'GE', ' ', M, N, CS,
823                         ISAME( 12 ) = LDCS.EQ.LDC
830                            SAME = SAME.AND.ISAME( I )
831                            IF( .NOT.ISAME( I ) )
946       LOGICAL            ISAME( 13 )  local
1081                            ISAME( 1 ) = SIDES.EQ.SIDE
1082                            ISAME( 2 ) = UPLOS.EQ.UPLO
1083                            ISAME( 3 ) = TRANAS.EQ.TRANSA
1084                            ISAME( 4 ) = DIAGS.EQ.DIAG
1085                            ISAME( 5 ) = MS.EQ.M
1086                            ISAME( 6 ) = NS.EQ.N
1087                            ISAME( 7 ) = ALS.EQ.ALPHA
1088                            ISAME( 8 ) = LDE( AS, AA, LAA )
1089                            ISAME( 9 ) = LDAS.EQ.LDA
1091                               ISAME( 10 ) = LDE( BS, BB, LBB )
1093                               ISAME( 10 ) = LDERES( 'GE', ' ', M, N, BS,
1096                            ISAME( 11 ) = LDBS.EQ.LDB
1103                               SAME = SAME.AND.ISAME( I )
1104                               IF( .NOT.ISAME( I ) )
1251       LOGICAL            ISAME( 13 )  local
1366                         ISAME( 1 ) = UPLOS.EQ.UPLO
1367                         ISAME( 2 ) = TRANSS.EQ.TRANS
1368                         ISAME( 3 ) = NS.EQ.N
1369                         ISAME( 4 ) = KS.EQ.K
1370                         ISAME( 5 ) = ALS.EQ.ALPHA
1371                         ISAME( 6 ) = LDE( AS, AA, LAA )
1372                         ISAME( 7 ) = LDAS.EQ.LDA
1373                         ISAME( 8 ) = BETS.EQ.BETA
1375                            ISAME( 9 ) = LDE( CS, CC, LCC )
1377                            ISAME( 9 ) = LDERES( 'SY', UPLO, N, N, CS,
1380                         ISAME( 10 ) = LDCS.EQ.LDC
1387                            SAME = SAME.AND.ISAME( I )
1388                            IF( .NOT.ISAME( I ) )
1526       LOGICAL            ISAME( 13 )  local
1662                         ISAME( 1 ) = UPLOS.EQ.UPLO
1663                         ISAME( 2 ) = TRANSS.EQ.TRANS
1664                         ISAME( 3 ) = NS.EQ.N
1665                         ISAME( 4 ) = KS.EQ.K
1666                         ISAME( 5 ) = ALS.EQ.ALPHA
1667                         ISAME( 6 ) = LDE( AS, AA, LAA )
1668                         ISAME( 7 ) = LDAS.EQ.LDA
1669                         ISAME( 8 ) = LDE( BS, BB, LBB )
1670                         ISAME( 9 ) = LDBS.EQ.LDB
1671                         ISAME( 10 ) = BETS.EQ.BETA
1673                            ISAME( 11 ) = LDE( CS, CC, LCC )
1675                            ISAME( 11 ) = LDERES( 'SY', UPLO, N, N, CS,
1678                         ISAME( 12 ) = LDCS.EQ.LDC
1685                            SAME = SAME.AND.ISAME( I )
1686                            IF( .NOT.ISAME( I ) )