Lines Matching refs:ISAME
441 LOGICAL ISAME( 13 ) local
615 ISAME( 1 ) = TRANS.EQ.TRANSS
616 ISAME( 2 ) = MS.EQ.M
617 ISAME( 3 ) = NS.EQ.N
619 ISAME( 4 ) = ALS.EQ.ALPHA
620 ISAME( 5 ) = LCE( AS, AA, LAA )
621 ISAME( 6 ) = LDAS.EQ.LDA
622 ISAME( 7 ) = LCE( XS, XX, LX )
623 ISAME( 8 ) = INCXS.EQ.INCX
624 ISAME( 9 ) = BLS.EQ.BETA
626 ISAME( 10 ) = LCE( YS, YY, LY )
628 ISAME( 10 ) = LCERES( 'GE', ' ', 1,
632 ISAME( 11 ) = INCYS.EQ.INCY
634 ISAME( 4 ) = KLS.EQ.KL
635 ISAME( 5 ) = KUS.EQ.KU
636 ISAME( 6 ) = ALS.EQ.ALPHA
637 ISAME( 7 ) = LCE( AS, AA, LAA )
638 ISAME( 8 ) = LDAS.EQ.LDA
639 ISAME( 9 ) = LCE( XS, XX, LX )
640 ISAME( 10 ) = INCXS.EQ.INCX
641 ISAME( 11 ) = BLS.EQ.BETA
643 ISAME( 12 ) = LCE( YS, YY, LY )
645 ISAME( 12 ) = LCERES( 'GE', ' ', 1,
649 ISAME( 13 ) = INCYS.EQ.INCY
657 SAME = SAME.AND.ISAME( I )
658 IF( .NOT.ISAME( I ) )
785 LOGICAL ISAME( 13 ) local
951 ISAME( 1 ) = UPLO.EQ.UPLOS
952 ISAME( 2 ) = NS.EQ.N
954 ISAME( 3 ) = ALS.EQ.ALPHA
955 ISAME( 4 ) = LCE( AS, AA, LAA )
956 ISAME( 5 ) = LDAS.EQ.LDA
957 ISAME( 6 ) = LCE( XS, XX, LX )
958 ISAME( 7 ) = INCXS.EQ.INCX
959 ISAME( 8 ) = BLS.EQ.BETA
961 ISAME( 9 ) = LCE( YS, YY, LY )
963 ISAME( 9 ) = LCERES( 'GE', ' ', 1, N,
966 ISAME( 10 ) = INCYS.EQ.INCY
968 ISAME( 3 ) = KS.EQ.K
969 ISAME( 4 ) = ALS.EQ.ALPHA
970 ISAME( 5 ) = LCE( AS, AA, LAA )
971 ISAME( 6 ) = LDAS.EQ.LDA
972 ISAME( 7 ) = LCE( XS, XX, LX )
973 ISAME( 8 ) = INCXS.EQ.INCX
974 ISAME( 9 ) = BLS.EQ.BETA
976 ISAME( 10 ) = LCE( YS, YY, LY )
978 ISAME( 10 ) = LCERES( 'GE', ' ', 1, N,
981 ISAME( 11 ) = INCYS.EQ.INCY
983 ISAME( 3 ) = ALS.EQ.ALPHA
984 ISAME( 4 ) = LCE( AS, AA, LAA )
985 ISAME( 5 ) = LCE( XS, XX, LX )
986 ISAME( 6 ) = INCXS.EQ.INCX
987 ISAME( 7 ) = BLS.EQ.BETA
989 ISAME( 8 ) = LCE( YS, YY, LY )
991 ISAME( 8 ) = LCERES( 'GE', ' ', 1, N,
994 ISAME( 9 ) = INCYS.EQ.INCY
1002 SAME = SAME.AND.ISAME( I )
1003 IF( .NOT.ISAME( I ) )
1130 LOGICAL ISAME( 13 ) local
1313 ISAME( 1 ) = UPLO.EQ.UPLOS
1314 ISAME( 2 ) = TRANS.EQ.TRANSS
1315 ISAME( 3 ) = DIAG.EQ.DIAGS
1316 ISAME( 4 ) = NS.EQ.N
1318 ISAME( 5 ) = LCE( AS, AA, LAA )
1319 ISAME( 6 ) = LDAS.EQ.LDA
1321 ISAME( 7 ) = LCE( XS, XX, LX )
1323 ISAME( 7 ) = LCERES( 'GE', ' ', 1, N, XS,
1326 ISAME( 8 ) = INCXS.EQ.INCX
1328 ISAME( 5 ) = KS.EQ.K
1329 ISAME( 6 ) = LCE( AS, AA, LAA )
1330 ISAME( 7 ) = LDAS.EQ.LDA
1332 ISAME( 8 ) = LCE( XS, XX, LX )
1334 ISAME( 8 ) = LCERES( 'GE', ' ', 1, N, XS,
1337 ISAME( 9 ) = INCXS.EQ.INCX
1339 ISAME( 5 ) = LCE( AS, AA, LAA )
1341 ISAME( 6 ) = LCE( XS, XX, LX )
1343 ISAME( 6 ) = LCERES( 'GE', ' ', 1, N, XS,
1346 ISAME( 7 ) = INCXS.EQ.INCX
1354 SAME = SAME.AND.ISAME( I )
1355 IF( .NOT.ISAME( I ) )
1493 LOGICAL ISAME( 13 ) local
1619 ISAME( 1 ) = MS.EQ.M
1620 ISAME( 2 ) = NS.EQ.N
1621 ISAME( 3 ) = ALS.EQ.ALPHA
1622 ISAME( 4 ) = LCE( XS, XX, LX )
1623 ISAME( 5 ) = INCXS.EQ.INCX
1624 ISAME( 6 ) = LCE( YS, YY, LY )
1625 ISAME( 7 ) = INCYS.EQ.INCY
1627 ISAME( 8 ) = LCE( AS, AA, LAA )
1629 ISAME( 8 ) = LCERES( 'GE', ' ', M, N, AS, AA,
1632 ISAME( 9 ) = LDAS.EQ.LDA
1638 SAME = SAME.AND.ISAME( I )
1639 IF( .NOT.ISAME( I ) )
1771 LOGICAL ISAME( 13 ) local
1888 ISAME( 1 ) = UPLO.EQ.UPLOS
1889 ISAME( 2 ) = NS.EQ.N
1890 ISAME( 3 ) = RALS.EQ.RALPHA
1891 ISAME( 4 ) = LCE( XS, XX, LX )
1892 ISAME( 5 ) = INCXS.EQ.INCX
1894 ISAME( 6 ) = LCE( AS, AA, LAA )
1896 ISAME( 6 ) = LCERES( SNAME( 2: 3 ), UPLO, N, N, AS,
1900 ISAME( 7 ) = LDAS.EQ.LDA
1907 SAME = SAME.AND.ISAME( I )
1908 IF( .NOT.ISAME( I ) )
2056 LOGICAL ISAME( 13 ) local
2193 ISAME( 1 ) = UPLO.EQ.UPLOS
2194 ISAME( 2 ) = NS.EQ.N
2195 ISAME( 3 ) = ALS.EQ.ALPHA
2196 ISAME( 4 ) = LCE( XS, XX, LX )
2197 ISAME( 5 ) = INCXS.EQ.INCX
2198 ISAME( 6 ) = LCE( YS, YY, LY )
2199 ISAME( 7 ) = INCYS.EQ.INCY
2201 ISAME( 8 ) = LCE( AS, AA, LAA )
2203 ISAME( 8 ) = LCERES( SNAME( 2: 3 ), UPLO, N, N,
2207 ISAME( 9 ) = LDAS.EQ.LDA
2214 SAME = SAME.AND.ISAME( I )
2215 IF( .NOT.ISAME( I ) )