Lines Matching refs:ISAME
506 LOGICAL ISAME( 13 ) local
688 ISAME( 1 ) = TRANS.EQ.TRANSS
689 ISAME( 2 ) = MS.EQ.M
690 ISAME( 3 ) = NS.EQ.N
692 ISAME( 4 ) = ALS.EQ.ALPHA
693 ISAME( 5 ) = LCE( AS, AA, LAA )
694 ISAME( 6 ) = LDAS.EQ.LDA
695 ISAME( 7 ) = LCE( XS, XX, LX )
696 ISAME( 8 ) = INCXS.EQ.INCX
697 ISAME( 9 ) = BLS.EQ.BETA
699 ISAME( 10 ) = LCE( YS, YY, LY )
701 ISAME( 10 ) = LCERES( 'ge', ' ', 1,
705 ISAME( 11 ) = INCYS.EQ.INCY
707 ISAME( 4 ) = KLS.EQ.KL
708 ISAME( 5 ) = KUS.EQ.KU
709 ISAME( 6 ) = ALS.EQ.ALPHA
710 ISAME( 7 ) = LCE( AS, AA, LAA )
711 ISAME( 8 ) = LDAS.EQ.LDA
712 ISAME( 9 ) = LCE( XS, XX, LX )
713 ISAME( 10 ) = INCXS.EQ.INCX
714 ISAME( 11 ) = BLS.EQ.BETA
716 ISAME( 12 ) = LCE( YS, YY, LY )
718 ISAME( 12 ) = LCERES( 'ge', ' ', 1,
722 ISAME( 13 ) = INCYS.EQ.INCY
730 SAME = SAME.AND.ISAME( I )
731 IF( .NOT.ISAME( I ) )
860 LOGICAL ISAME( 13 ) local
1033 ISAME( 1 ) = UPLO.EQ.UPLOS
1034 ISAME( 2 ) = NS.EQ.N
1036 ISAME( 3 ) = ALS.EQ.ALPHA
1037 ISAME( 4 ) = LCE( AS, AA, LAA )
1038 ISAME( 5 ) = LDAS.EQ.LDA
1039 ISAME( 6 ) = LCE( XS, XX, LX )
1040 ISAME( 7 ) = INCXS.EQ.INCX
1041 ISAME( 8 ) = BLS.EQ.BETA
1043 ISAME( 9 ) = LCE( YS, YY, LY )
1045 ISAME( 9 ) = LCERES( 'ge', ' ', 1, N,
1048 ISAME( 10 ) = INCYS.EQ.INCY
1050 ISAME( 3 ) = KS.EQ.K
1051 ISAME( 4 ) = ALS.EQ.ALPHA
1052 ISAME( 5 ) = LCE( AS, AA, LAA )
1053 ISAME( 6 ) = LDAS.EQ.LDA
1054 ISAME( 7 ) = LCE( XS, XX, LX )
1055 ISAME( 8 ) = INCXS.EQ.INCX
1056 ISAME( 9 ) = BLS.EQ.BETA
1058 ISAME( 10 ) = LCE( YS, YY, LY )
1060 ISAME( 10 ) = LCERES( 'ge', ' ', 1, N,
1063 ISAME( 11 ) = INCYS.EQ.INCY
1065 ISAME( 3 ) = ALS.EQ.ALPHA
1066 ISAME( 4 ) = LCE( AS, AA, LAA )
1067 ISAME( 5 ) = LCE( XS, XX, LX )
1068 ISAME( 6 ) = INCXS.EQ.INCX
1069 ISAME( 7 ) = BLS.EQ.BETA
1071 ISAME( 8 ) = LCE( YS, YY, LY )
1073 ISAME( 8 ) = LCERES( 'ge', ' ', 1, N,
1076 ISAME( 9 ) = INCYS.EQ.INCY
1084 SAME = SAME.AND.ISAME( I )
1085 IF( .NOT.ISAME( I ) )
1214 LOGICAL ISAME( 13 ) local
1414 ISAME( 1 ) = UPLO.EQ.UPLOS
1415 ISAME( 2 ) = TRANS.EQ.TRANSS
1416 ISAME( 3 ) = DIAG.EQ.DIAGS
1417 ISAME( 4 ) = NS.EQ.N
1419 ISAME( 5 ) = LCE( AS, AA, LAA )
1420 ISAME( 6 ) = LDAS.EQ.LDA
1422 ISAME( 7 ) = LCE( XS, XX, LX )
1424 ISAME( 7 ) = LCERES( 'ge', ' ', 1, N, XS,
1427 ISAME( 8 ) = INCXS.EQ.INCX
1429 ISAME( 5 ) = KS.EQ.K
1430 ISAME( 6 ) = LCE( AS, AA, LAA )
1431 ISAME( 7 ) = LDAS.EQ.LDA
1433 ISAME( 8 ) = LCE( XS, XX, LX )
1435 ISAME( 8 ) = LCERES( 'ge', ' ', 1, N, XS,
1438 ISAME( 9 ) = INCXS.EQ.INCX
1440 ISAME( 5 ) = LCE( AS, AA, LAA )
1442 ISAME( 6 ) = LCE( XS, XX, LX )
1444 ISAME( 6 ) = LCERES( 'ge', ' ', 1, N, XS,
1447 ISAME( 7 ) = INCXS.EQ.INCX
1455 SAME = SAME.AND.ISAME( I )
1456 IF( .NOT.ISAME( I ) )
1596 LOGICAL ISAME( 13 ) local
1722 ISAME( 1 ) = MS.EQ.M
1723 ISAME( 2 ) = NS.EQ.N
1724 ISAME( 3 ) = ALS.EQ.ALPHA
1725 ISAME( 4 ) = LCE( XS, XX, LX )
1726 ISAME( 5 ) = INCXS.EQ.INCX
1727 ISAME( 6 ) = LCE( YS, YY, LY )
1728 ISAME( 7 ) = INCYS.EQ.INCY
1730 ISAME( 8 ) = LCE( AS, AA, LAA )
1732 ISAME( 8 ) = LCERES( 'ge', ' ', M, N, AS, AA,
1735 ISAME( 9 ) = LDAS.EQ.LDA
1741 SAME = SAME.AND.ISAME( I )
1742 IF( .NOT.ISAME( I ) )
1875 LOGICAL ISAME( 13 ) local
1999 ISAME( 1 ) = UPLO.EQ.UPLOS
2000 ISAME( 2 ) = NS.EQ.N
2001 ISAME( 3 ) = RALS.EQ.RALPHA
2002 ISAME( 4 ) = LCE( XS, XX, LX )
2003 ISAME( 5 ) = INCXS.EQ.INCX
2005 ISAME( 6 ) = LCE( AS, AA, LAA )
2007 ISAME( 6 ) = LCERES( SNAME( 8: 9 ), UPLO, N, N, AS,
2011 ISAME( 7 ) = LDAS.EQ.LDA
2018 SAME = SAME.AND.ISAME( I )
2019 IF( .NOT.ISAME( I ) )
2169 LOGICAL ISAME( 13 ) local
2311 ISAME( 1 ) = UPLO.EQ.UPLOS
2312 ISAME( 2 ) = NS.EQ.N
2313 ISAME( 3 ) = ALS.EQ.ALPHA
2314 ISAME( 4 ) = LCE( XS, XX, LX )
2315 ISAME( 5 ) = INCXS.EQ.INCX
2316 ISAME( 6 ) = LCE( YS, YY, LY )
2317 ISAME( 7 ) = INCYS.EQ.INCY
2319 ISAME( 8 ) = LCE( AS, AA, LAA )
2321 ISAME( 8 ) = LCERES( SNAME( 8: 9 ), UPLO, N, N,
2325 ISAME( 9 ) = LDAS.EQ.LDA
2332 SAME = SAME.AND.ISAME( I )
2333 IF( .NOT.ISAME( I ) )