Lines Matching refs:ISAME
443 LOGICAL ISAME( 13 ) local
617 ISAME( 1 ) = TRANS.EQ.TRANSS
618 ISAME( 2 ) = MS.EQ.M
619 ISAME( 3 ) = NS.EQ.N
621 ISAME( 4 ) = ALS.EQ.ALPHA
622 ISAME( 5 ) = LZE( AS, AA, LAA )
623 ISAME( 6 ) = LDAS.EQ.LDA
624 ISAME( 7 ) = LZE( XS, XX, LX )
625 ISAME( 8 ) = INCXS.EQ.INCX
626 ISAME( 9 ) = BLS.EQ.BETA
628 ISAME( 10 ) = LZE( YS, YY, LY )
630 ISAME( 10 ) = LZERES( 'GE', ' ', 1,
634 ISAME( 11 ) = INCYS.EQ.INCY
636 ISAME( 4 ) = KLS.EQ.KL
637 ISAME( 5 ) = KUS.EQ.KU
638 ISAME( 6 ) = ALS.EQ.ALPHA
639 ISAME( 7 ) = LZE( AS, AA, LAA )
640 ISAME( 8 ) = LDAS.EQ.LDA
641 ISAME( 9 ) = LZE( XS, XX, LX )
642 ISAME( 10 ) = INCXS.EQ.INCX
643 ISAME( 11 ) = BLS.EQ.BETA
645 ISAME( 12 ) = LZE( YS, YY, LY )
647 ISAME( 12 ) = LZERES( 'GE', ' ', 1,
651 ISAME( 13 ) = INCYS.EQ.INCY
659 SAME = SAME.AND.ISAME( I )
660 IF( .NOT.ISAME( I ) )
788 LOGICAL ISAME( 13 ) local
954 ISAME( 1 ) = UPLO.EQ.UPLOS
955 ISAME( 2 ) = NS.EQ.N
957 ISAME( 3 ) = ALS.EQ.ALPHA
958 ISAME( 4 ) = LZE( AS, AA, LAA )
959 ISAME( 5 ) = LDAS.EQ.LDA
960 ISAME( 6 ) = LZE( XS, XX, LX )
961 ISAME( 7 ) = INCXS.EQ.INCX
962 ISAME( 8 ) = BLS.EQ.BETA
964 ISAME( 9 ) = LZE( YS, YY, LY )
966 ISAME( 9 ) = LZERES( 'GE', ' ', 1, N,
969 ISAME( 10 ) = INCYS.EQ.INCY
971 ISAME( 3 ) = KS.EQ.K
972 ISAME( 4 ) = ALS.EQ.ALPHA
973 ISAME( 5 ) = LZE( AS, AA, LAA )
974 ISAME( 6 ) = LDAS.EQ.LDA
975 ISAME( 7 ) = LZE( XS, XX, LX )
976 ISAME( 8 ) = INCXS.EQ.INCX
977 ISAME( 9 ) = BLS.EQ.BETA
979 ISAME( 10 ) = LZE( YS, YY, LY )
981 ISAME( 10 ) = LZERES( 'GE', ' ', 1, N,
984 ISAME( 11 ) = INCYS.EQ.INCY
986 ISAME( 3 ) = ALS.EQ.ALPHA
987 ISAME( 4 ) = LZE( AS, AA, LAA )
988 ISAME( 5 ) = LZE( XS, XX, LX )
989 ISAME( 6 ) = INCXS.EQ.INCX
990 ISAME( 7 ) = BLS.EQ.BETA
992 ISAME( 8 ) = LZE( YS, YY, LY )
994 ISAME( 8 ) = LZERES( 'GE', ' ', 1, N,
997 ISAME( 9 ) = INCYS.EQ.INCY
1005 SAME = SAME.AND.ISAME( I )
1006 IF( .NOT.ISAME( I ) )
1134 LOGICAL ISAME( 13 ) local
1317 ISAME( 1 ) = UPLO.EQ.UPLOS
1318 ISAME( 2 ) = TRANS.EQ.TRANSS
1319 ISAME( 3 ) = DIAG.EQ.DIAGS
1320 ISAME( 4 ) = NS.EQ.N
1322 ISAME( 5 ) = LZE( AS, AA, LAA )
1323 ISAME( 6 ) = LDAS.EQ.LDA
1325 ISAME( 7 ) = LZE( XS, XX, LX )
1327 ISAME( 7 ) = LZERES( 'GE', ' ', 1, N, XS,
1330 ISAME( 8 ) = INCXS.EQ.INCX
1332 ISAME( 5 ) = KS.EQ.K
1333 ISAME( 6 ) = LZE( AS, AA, LAA )
1334 ISAME( 7 ) = LDAS.EQ.LDA
1336 ISAME( 8 ) = LZE( XS, XX, LX )
1338 ISAME( 8 ) = LZERES( 'GE', ' ', 1, N, XS,
1341 ISAME( 9 ) = INCXS.EQ.INCX
1343 ISAME( 5 ) = LZE( AS, AA, LAA )
1345 ISAME( 6 ) = LZE( XS, XX, LX )
1347 ISAME( 6 ) = LZERES( 'GE', ' ', 1, N, XS,
1350 ISAME( 7 ) = INCXS.EQ.INCX
1358 SAME = SAME.AND.ISAME( I )
1359 IF( .NOT.ISAME( I ) )
1498 LOGICAL ISAME( 13 ) local
1624 ISAME( 1 ) = MS.EQ.M
1625 ISAME( 2 ) = NS.EQ.N
1626 ISAME( 3 ) = ALS.EQ.ALPHA
1627 ISAME( 4 ) = LZE( XS, XX, LX )
1628 ISAME( 5 ) = INCXS.EQ.INCX
1629 ISAME( 6 ) = LZE( YS, YY, LY )
1630 ISAME( 7 ) = INCYS.EQ.INCY
1632 ISAME( 8 ) = LZE( AS, AA, LAA )
1634 ISAME( 8 ) = LZERES( 'GE', ' ', M, N, AS, AA,
1637 ISAME( 9 ) = LDAS.EQ.LDA
1643 SAME = SAME.AND.ISAME( I )
1644 IF( .NOT.ISAME( I ) )
1777 LOGICAL ISAME( 13 ) local
1894 ISAME( 1 ) = UPLO.EQ.UPLOS
1895 ISAME( 2 ) = NS.EQ.N
1896 ISAME( 3 ) = RALS.EQ.RALPHA
1897 ISAME( 4 ) = LZE( XS, XX, LX )
1898 ISAME( 5 ) = INCXS.EQ.INCX
1900 ISAME( 6 ) = LZE( AS, AA, LAA )
1902 ISAME( 6 ) = LZERES( SNAME( 2: 3 ), UPLO, N, N, AS,
1906 ISAME( 7 ) = LDAS.EQ.LDA
1913 SAME = SAME.AND.ISAME( I )
1914 IF( .NOT.ISAME( I ) )
2063 LOGICAL ISAME( 13 ) local
2200 ISAME( 1 ) = UPLO.EQ.UPLOS
2201 ISAME( 2 ) = NS.EQ.N
2202 ISAME( 3 ) = ALS.EQ.ALPHA
2203 ISAME( 4 ) = LZE( XS, XX, LX )
2204 ISAME( 5 ) = INCXS.EQ.INCX
2205 ISAME( 6 ) = LZE( YS, YY, LY )
2206 ISAME( 7 ) = INCYS.EQ.INCY
2208 ISAME( 8 ) = LZE( AS, AA, LAA )
2210 ISAME( 8 ) = LZERES( SNAME( 2: 3 ), UPLO, N, N,
2214 ISAME( 9 ) = LDAS.EQ.LDA
2221 SAME = SAME.AND.ISAME( I )
2222 IF( .NOT.ISAME( I ) )