Lines Matching refs:ISAME
431 LOGICAL ISAME( 13 ) local
605 ISAME( 1 ) = TRANS.EQ.TRANSS
606 ISAME( 2 ) = MS.EQ.M
607 ISAME( 3 ) = NS.EQ.N
609 ISAME( 4 ) = ALS.EQ.ALPHA
610 ISAME( 5 ) = LSE( AS, AA, LAA )
611 ISAME( 6 ) = LDAS.EQ.LDA
612 ISAME( 7 ) = LSE( XS, XX, LX )
613 ISAME( 8 ) = INCXS.EQ.INCX
614 ISAME( 9 ) = BLS.EQ.BETA
616 ISAME( 10 ) = LSE( YS, YY, LY )
618 ISAME( 10 ) = LSERES( 'GE', ' ', 1,
622 ISAME( 11 ) = INCYS.EQ.INCY
624 ISAME( 4 ) = KLS.EQ.KL
625 ISAME( 5 ) = KUS.EQ.KU
626 ISAME( 6 ) = ALS.EQ.ALPHA
627 ISAME( 7 ) = LSE( AS, AA, LAA )
628 ISAME( 8 ) = LDAS.EQ.LDA
629 ISAME( 9 ) = LSE( XS, XX, LX )
630 ISAME( 10 ) = INCXS.EQ.INCX
631 ISAME( 11 ) = BLS.EQ.BETA
633 ISAME( 12 ) = LSE( YS, YY, LY )
635 ISAME( 12 ) = LSERES( 'GE', ' ', 1,
639 ISAME( 13 ) = INCYS.EQ.INCY
647 SAME = SAME.AND.ISAME( I )
648 IF( .NOT.ISAME( I ) )
771 LOGICAL ISAME( 13 ) local
937 ISAME( 1 ) = UPLO.EQ.UPLOS
938 ISAME( 2 ) = NS.EQ.N
940 ISAME( 3 ) = ALS.EQ.ALPHA
941 ISAME( 4 ) = LSE( AS, AA, LAA )
942 ISAME( 5 ) = LDAS.EQ.LDA
943 ISAME( 6 ) = LSE( XS, XX, LX )
944 ISAME( 7 ) = INCXS.EQ.INCX
945 ISAME( 8 ) = BLS.EQ.BETA
947 ISAME( 9 ) = LSE( YS, YY, LY )
949 ISAME( 9 ) = LSERES( 'GE', ' ', 1, N,
952 ISAME( 10 ) = INCYS.EQ.INCY
954 ISAME( 3 ) = KS.EQ.K
955 ISAME( 4 ) = ALS.EQ.ALPHA
956 ISAME( 5 ) = LSE( AS, AA, LAA )
957 ISAME( 6 ) = LDAS.EQ.LDA
958 ISAME( 7 ) = LSE( XS, XX, LX )
959 ISAME( 8 ) = INCXS.EQ.INCX
960 ISAME( 9 ) = BLS.EQ.BETA
962 ISAME( 10 ) = LSE( YS, YY, LY )
964 ISAME( 10 ) = LSERES( 'GE', ' ', 1, N,
967 ISAME( 11 ) = INCYS.EQ.INCY
969 ISAME( 3 ) = ALS.EQ.ALPHA
970 ISAME( 4 ) = LSE( AS, AA, LAA )
971 ISAME( 5 ) = LSE( XS, XX, LX )
972 ISAME( 6 ) = INCXS.EQ.INCX
973 ISAME( 7 ) = BLS.EQ.BETA
975 ISAME( 8 ) = LSE( YS, YY, LY )
977 ISAME( 8 ) = LSERES( 'GE', ' ', 1, N,
980 ISAME( 9 ) = INCYS.EQ.INCY
988 SAME = SAME.AND.ISAME( I )
989 IF( .NOT.ISAME( I ) )
1110 LOGICAL ISAME( 13 ) local
1293 ISAME( 1 ) = UPLO.EQ.UPLOS
1294 ISAME( 2 ) = TRANS.EQ.TRANSS
1295 ISAME( 3 ) = DIAG.EQ.DIAGS
1296 ISAME( 4 ) = NS.EQ.N
1298 ISAME( 5 ) = LSE( AS, AA, LAA )
1299 ISAME( 6 ) = LDAS.EQ.LDA
1301 ISAME( 7 ) = LSE( XS, XX, LX )
1303 ISAME( 7 ) = LSERES( 'GE', ' ', 1, N, XS,
1306 ISAME( 8 ) = INCXS.EQ.INCX
1308 ISAME( 5 ) = KS.EQ.K
1309 ISAME( 6 ) = LSE( AS, AA, LAA )
1310 ISAME( 7 ) = LDAS.EQ.LDA
1312 ISAME( 8 ) = LSE( XS, XX, LX )
1314 ISAME( 8 ) = LSERES( 'GE', ' ', 1, N, XS,
1317 ISAME( 9 ) = INCXS.EQ.INCX
1319 ISAME( 5 ) = LSE( AS, AA, LAA )
1321 ISAME( 6 ) = LSE( XS, XX, LX )
1323 ISAME( 6 ) = LSERES( 'GE', ' ', 1, N, XS,
1326 ISAME( 7 ) = INCXS.EQ.INCX
1334 SAME = SAME.AND.ISAME( I )
1335 IF( .NOT.ISAME( I ) )
1468 LOGICAL ISAME( 13 ) local
1586 ISAME( 1 ) = MS.EQ.M
1587 ISAME( 2 ) = NS.EQ.N
1588 ISAME( 3 ) = ALS.EQ.ALPHA
1589 ISAME( 4 ) = LSE( XS, XX, LX )
1590 ISAME( 5 ) = INCXS.EQ.INCX
1591 ISAME( 6 ) = LSE( YS, YY, LY )
1592 ISAME( 7 ) = INCYS.EQ.INCY
1594 ISAME( 8 ) = LSE( AS, AA, LAA )
1596 ISAME( 8 ) = LSERES( 'GE', ' ', M, N, AS, AA,
1599 ISAME( 9 ) = LDAS.EQ.LDA
1605 SAME = SAME.AND.ISAME( I )
1606 IF( .NOT.ISAME( I ) )
1730 LOGICAL ISAME( 13 ) local
1846 ISAME( 1 ) = UPLO.EQ.UPLOS
1847 ISAME( 2 ) = NS.EQ.N
1848 ISAME( 3 ) = ALS.EQ.ALPHA
1849 ISAME( 4 ) = LSE( XS, XX, LX )
1850 ISAME( 5 ) = INCXS.EQ.INCX
1852 ISAME( 6 ) = LSE( AS, AA, LAA )
1854 ISAME( 6 ) = LSERES( SNAME( 2: 3 ), UPLO, N, N, AS,
1858 ISAME( 7 ) = LDAS.EQ.LDA
1865 SAME = SAME.AND.ISAME( I )
1866 IF( .NOT.ISAME( I ) )
2009 LOGICAL ISAME( 13 ) local
2146 ISAME( 1 ) = UPLO.EQ.UPLOS
2147 ISAME( 2 ) = NS.EQ.N
2148 ISAME( 3 ) = ALS.EQ.ALPHA
2149 ISAME( 4 ) = LSE( XS, XX, LX )
2150 ISAME( 5 ) = INCXS.EQ.INCX
2151 ISAME( 6 ) = LSE( YS, YY, LY )
2152 ISAME( 7 ) = INCYS.EQ.INCY
2154 ISAME( 8 ) = LSE( AS, AA, LAA )
2156 ISAME( 8 ) = LSERES( SNAME( 2: 3 ), UPLO, N, N,
2160 ISAME( 9 ) = LDAS.EQ.LDA
2167 SAME = SAME.AND.ISAME( I )
2168 IF( .NOT.ISAME( I ) )