Lines Matching refs:ISAME
497 LOGICAL ISAME( 13 ) local
678 ISAME( 1 ) = TRANS.EQ.TRANSS
679 ISAME( 2 ) = MS.EQ.M
680 ISAME( 3 ) = NS.EQ.N
682 ISAME( 4 ) = ALS.EQ.ALPHA
683 ISAME( 5 ) = LDE( AS, AA, LAA )
684 ISAME( 6 ) = LDAS.EQ.LDA
685 ISAME( 7 ) = LDE( XS, XX, LX )
686 ISAME( 8 ) = INCXS.EQ.INCX
687 ISAME( 9 ) = BLS.EQ.BETA
689 ISAME( 10 ) = LDE( YS, YY, LY )
691 ISAME( 10 ) = LDERES( 'ge', ' ', 1,
695 ISAME( 11 ) = INCYS.EQ.INCY
697 ISAME( 4 ) = KLS.EQ.KL
698 ISAME( 5 ) = KUS.EQ.KU
699 ISAME( 6 ) = ALS.EQ.ALPHA
700 ISAME( 7 ) = LDE( AS, AA, LAA )
701 ISAME( 8 ) = LDAS.EQ.LDA
702 ISAME( 9 ) = LDE( XS, XX, LX )
703 ISAME( 10 ) = INCXS.EQ.INCX
704 ISAME( 11 ) = BLS.EQ.BETA
706 ISAME( 12 ) = LDE( YS, YY, LY )
708 ISAME( 12 ) = LDERES( 'ge', ' ', 1,
712 ISAME( 13 ) = INCYS.EQ.INCY
720 SAME = SAME.AND.ISAME( I )
721 IF( .NOT.ISAME( I ) )
856 LOGICAL ISAME( 13 ) local
1028 ISAME( 1 ) = UPLO.EQ.UPLOS
1029 ISAME( 2 ) = NS.EQ.N
1031 ISAME( 3 ) = ALS.EQ.ALPHA
1032 ISAME( 4 ) = LDE( AS, AA, LAA )
1033 ISAME( 5 ) = LDAS.EQ.LDA
1034 ISAME( 6 ) = LDE( XS, XX, LX )
1035 ISAME( 7 ) = INCXS.EQ.INCX
1036 ISAME( 8 ) = BLS.EQ.BETA
1038 ISAME( 9 ) = LDE( YS, YY, LY )
1040 ISAME( 9 ) = LDERES( 'ge', ' ', 1, N,
1043 ISAME( 10 ) = INCYS.EQ.INCY
1045 ISAME( 3 ) = KS.EQ.K
1046 ISAME( 4 ) = ALS.EQ.ALPHA
1047 ISAME( 5 ) = LDE( AS, AA, LAA )
1048 ISAME( 6 ) = LDAS.EQ.LDA
1049 ISAME( 7 ) = LDE( XS, XX, LX )
1050 ISAME( 8 ) = INCXS.EQ.INCX
1051 ISAME( 9 ) = BLS.EQ.BETA
1053 ISAME( 10 ) = LDE( YS, YY, LY )
1055 ISAME( 10 ) = LDERES( 'ge', ' ', 1, N,
1058 ISAME( 11 ) = INCYS.EQ.INCY
1060 ISAME( 3 ) = ALS.EQ.ALPHA
1061 ISAME( 4 ) = LDE( AS, AA, LAA )
1062 ISAME( 5 ) = LDE( XS, XX, LX )
1063 ISAME( 6 ) = INCXS.EQ.INCX
1064 ISAME( 7 ) = BLS.EQ.BETA
1066 ISAME( 8 ) = LDE( YS, YY, LY )
1068 ISAME( 8 ) = LDERES( 'ge', ' ', 1, N,
1071 ISAME( 9 ) = INCYS.EQ.INCY
1079 SAME = SAME.AND.ISAME( I )
1080 IF( .NOT.ISAME( I ) )
1213 LOGICAL ISAME( 13 ) local
1413 ISAME( 1 ) = UPLO.EQ.UPLOS
1414 ISAME( 2 ) = TRANS.EQ.TRANSS
1415 ISAME( 3 ) = DIAG.EQ.DIAGS
1416 ISAME( 4 ) = NS.EQ.N
1418 ISAME( 5 ) = LDE( AS, AA, LAA )
1419 ISAME( 6 ) = LDAS.EQ.LDA
1421 ISAME( 7 ) = LDE( XS, XX, LX )
1423 ISAME( 7 ) = LDERES( 'ge', ' ', 1, N, XS,
1426 ISAME( 8 ) = INCXS.EQ.INCX
1428 ISAME( 5 ) = KS.EQ.K
1429 ISAME( 6 ) = LDE( AS, AA, LAA )
1430 ISAME( 7 ) = LDAS.EQ.LDA
1432 ISAME( 8 ) = LDE( XS, XX, LX )
1434 ISAME( 8 ) = LDERES( 'ge', ' ', 1, N, XS,
1437 ISAME( 9 ) = INCXS.EQ.INCX
1439 ISAME( 5 ) = LDE( AS, AA, LAA )
1441 ISAME( 6 ) = LDE( XS, XX, LX )
1443 ISAME( 6 ) = LDERES( 'ge', ' ', 1, N, XS,
1446 ISAME( 7 ) = INCXS.EQ.INCX
1454 SAME = SAME.AND.ISAME( I )
1455 IF( .NOT.ISAME( I ) )
1600 LOGICAL ISAME( 13 ) local
1718 ISAME( 1 ) = MS.EQ.M
1719 ISAME( 2 ) = NS.EQ.N
1720 ISAME( 3 ) = ALS.EQ.ALPHA
1721 ISAME( 4 ) = LDE( XS, XX, LX )
1722 ISAME( 5 ) = INCXS.EQ.INCX
1723 ISAME( 6 ) = LDE( YS, YY, LY )
1724 ISAME( 7 ) = INCYS.EQ.INCY
1726 ISAME( 8 ) = LDE( AS, AA, LAA )
1728 ISAME( 8 ) = LDERES( 'ge', ' ', M, N, AS, AA,
1731 ISAME( 9 ) = LDAS.EQ.LDA
1737 SAME = SAME.AND.ISAME( I )
1738 IF( .NOT.ISAME( I ) )
1874 LOGICAL ISAME( 13 ) local
1996 ISAME( 1 ) = UPLO.EQ.UPLOS
1997 ISAME( 2 ) = NS.EQ.N
1998 ISAME( 3 ) = ALS.EQ.ALPHA
1999 ISAME( 4 ) = LDE( XS, XX, LX )
2000 ISAME( 5 ) = INCXS.EQ.INCX
2002 ISAME( 6 ) = LDE( AS, AA, LAA )
2004 ISAME( 6 ) = LDERES( SNAME( 8: 9 ), UPLO, N, N, AS,
2008 ISAME( 7 ) = LDAS.EQ.LDA
2015 SAME = SAME.AND.ISAME( I )
2016 IF( .NOT.ISAME( I ) )
2171 LOGICAL ISAME( 13 ) local
2313 ISAME( 1 ) = UPLO.EQ.UPLOS
2314 ISAME( 2 ) = NS.EQ.N
2315 ISAME( 3 ) = ALS.EQ.ALPHA
2316 ISAME( 4 ) = LDE( XS, XX, LX )
2317 ISAME( 5 ) = INCXS.EQ.INCX
2318 ISAME( 6 ) = LDE( YS, YY, LY )
2319 ISAME( 7 ) = INCYS.EQ.INCY
2321 ISAME( 8 ) = LDE( AS, AA, LAA )
2323 ISAME( 8 ) = LDERES( SNAME( 8: 9 ), UPLO, N, N,
2327 ISAME( 9 ) = LDAS.EQ.LDA
2334 SAME = SAME.AND.ISAME( I )
2335 IF( .NOT.ISAME( I ) )