Lines Matching refs:ISAME
507 LOGICAL ISAME( 13 ) local
689 ISAME( 1 ) = TRANS.EQ.TRANSS
690 ISAME( 2 ) = MS.EQ.M
691 ISAME( 3 ) = NS.EQ.N
693 ISAME( 4 ) = ALS.EQ.ALPHA
694 ISAME( 5 ) = LZE( AS, AA, LAA )
695 ISAME( 6 ) = LDAS.EQ.LDA
696 ISAME( 7 ) = LZE( XS, XX, LX )
697 ISAME( 8 ) = INCXS.EQ.INCX
698 ISAME( 9 ) = BLS.EQ.BETA
700 ISAME( 10 ) = LZE( YS, YY, LY )
702 ISAME( 10 ) = LZERES( 'ge', ' ', 1,
706 ISAME( 11 ) = INCYS.EQ.INCY
708 ISAME( 4 ) = KLS.EQ.KL
709 ISAME( 5 ) = KUS.EQ.KU
710 ISAME( 6 ) = ALS.EQ.ALPHA
711 ISAME( 7 ) = LZE( AS, AA, LAA )
712 ISAME( 8 ) = LDAS.EQ.LDA
713 ISAME( 9 ) = LZE( XS, XX, LX )
714 ISAME( 10 ) = INCXS.EQ.INCX
715 ISAME( 11 ) = BLS.EQ.BETA
717 ISAME( 12 ) = LZE( YS, YY, LY )
719 ISAME( 12 ) = LZERES( 'ge', ' ', 1,
723 ISAME( 13 ) = INCYS.EQ.INCY
731 SAME = SAME.AND.ISAME( I )
732 IF( .NOT.ISAME( I ) )
862 LOGICAL ISAME( 13 ) local
1035 ISAME( 1 ) = UPLO.EQ.UPLOS
1036 ISAME( 2 ) = NS.EQ.N
1038 ISAME( 3 ) = ALS.EQ.ALPHA
1039 ISAME( 4 ) = LZE( AS, AA, LAA )
1040 ISAME( 5 ) = LDAS.EQ.LDA
1041 ISAME( 6 ) = LZE( XS, XX, LX )
1042 ISAME( 7 ) = INCXS.EQ.INCX
1043 ISAME( 8 ) = BLS.EQ.BETA
1045 ISAME( 9 ) = LZE( YS, YY, LY )
1047 ISAME( 9 ) = LZERES( 'ge', ' ', 1, N,
1050 ISAME( 10 ) = INCYS.EQ.INCY
1052 ISAME( 3 ) = KS.EQ.K
1053 ISAME( 4 ) = ALS.EQ.ALPHA
1054 ISAME( 5 ) = LZE( AS, AA, LAA )
1055 ISAME( 6 ) = LDAS.EQ.LDA
1056 ISAME( 7 ) = LZE( XS, XX, LX )
1057 ISAME( 8 ) = INCXS.EQ.INCX
1058 ISAME( 9 ) = BLS.EQ.BETA
1060 ISAME( 10 ) = LZE( YS, YY, LY )
1062 ISAME( 10 ) = LZERES( 'ge', ' ', 1, N,
1065 ISAME( 11 ) = INCYS.EQ.INCY
1067 ISAME( 3 ) = ALS.EQ.ALPHA
1068 ISAME( 4 ) = LZE( AS, AA, LAA )
1069 ISAME( 5 ) = LZE( XS, XX, LX )
1070 ISAME( 6 ) = INCXS.EQ.INCX
1071 ISAME( 7 ) = BLS.EQ.BETA
1073 ISAME( 8 ) = LZE( YS, YY, LY )
1075 ISAME( 8 ) = LZERES( 'ge', ' ', 1, N,
1078 ISAME( 9 ) = INCYS.EQ.INCY
1086 SAME = SAME.AND.ISAME( I )
1087 IF( .NOT.ISAME( I ) )
1217 LOGICAL ISAME( 13 ) local
1417 ISAME( 1 ) = UPLO.EQ.UPLOS
1418 ISAME( 2 ) = TRANS.EQ.TRANSS
1419 ISAME( 3 ) = DIAG.EQ.DIAGS
1420 ISAME( 4 ) = NS.EQ.N
1422 ISAME( 5 ) = LZE( AS, AA, LAA )
1423 ISAME( 6 ) = LDAS.EQ.LDA
1425 ISAME( 7 ) = LZE( XS, XX, LX )
1427 ISAME( 7 ) = LZERES( 'ge', ' ', 1, N, XS,
1430 ISAME( 8 ) = INCXS.EQ.INCX
1432 ISAME( 5 ) = KS.EQ.K
1433 ISAME( 6 ) = LZE( AS, AA, LAA )
1434 ISAME( 7 ) = LDAS.EQ.LDA
1436 ISAME( 8 ) = LZE( XS, XX, LX )
1438 ISAME( 8 ) = LZERES( 'ge', ' ', 1, N, XS,
1441 ISAME( 9 ) = INCXS.EQ.INCX
1443 ISAME( 5 ) = LZE( AS, AA, LAA )
1445 ISAME( 6 ) = LZE( XS, XX, LX )
1447 ISAME( 6 ) = LZERES( 'ge', ' ', 1, N, XS,
1450 ISAME( 7 ) = INCXS.EQ.INCX
1458 SAME = SAME.AND.ISAME( I )
1459 IF( .NOT.ISAME( I ) )
1600 LOGICAL ISAME( 13 ) local
1726 ISAME( 1 ) = MS.EQ.M
1727 ISAME( 2 ) = NS.EQ.N
1728 ISAME( 3 ) = ALS.EQ.ALPHA
1729 ISAME( 4 ) = LZE( XS, XX, LX )
1730 ISAME( 5 ) = INCXS.EQ.INCX
1731 ISAME( 6 ) = LZE( YS, YY, LY )
1732 ISAME( 7 ) = INCYS.EQ.INCY
1734 ISAME( 8 ) = LZE( AS, AA, LAA )
1736 ISAME( 8 ) = LZERES( 'ge', ' ', M, N, AS, AA,
1739 ISAME( 9 ) = LDAS.EQ.LDA
1745 SAME = SAME.AND.ISAME( I )
1746 IF( .NOT.ISAME( I ) )
1880 LOGICAL ISAME( 13 ) local
2004 ISAME( 1 ) = UPLO.EQ.UPLOS
2005 ISAME( 2 ) = NS.EQ.N
2006 ISAME( 3 ) = RALS.EQ.RALPHA
2007 ISAME( 4 ) = LZE( XS, XX, LX )
2008 ISAME( 5 ) = INCXS.EQ.INCX
2010 ISAME( 6 ) = LZE( AS, AA, LAA )
2012 ISAME( 6 ) = LZERES( SNAME( 8: 9 ), UPLO, N, N, AS,
2016 ISAME( 7 ) = LDAS.EQ.LDA
2023 SAME = SAME.AND.ISAME( I )
2024 IF( .NOT.ISAME( I ) )
2175 LOGICAL ISAME( 13 ) local
2317 ISAME( 1 ) = UPLO.EQ.UPLOS
2318 ISAME( 2 ) = NS.EQ.N
2319 ISAME( 3 ) = ALS.EQ.ALPHA
2320 ISAME( 4 ) = LZE( XS, XX, LX )
2321 ISAME( 5 ) = INCXS.EQ.INCX
2322 ISAME( 6 ) = LZE( YS, YY, LY )
2323 ISAME( 7 ) = INCYS.EQ.INCY
2325 ISAME( 8 ) = LZE( AS, AA, LAA )
2327 ISAME( 8 ) = LZERES( SNAME( 8: 9 ), UPLO, N, N,
2331 ISAME( 9 ) = LDAS.EQ.LDA
2338 SAME = SAME.AND.ISAME( I )
2339 IF( .NOT.ISAME( I ) )