Lines Matching refs:ISAME
408 LOGICAL ISAME( 13 ) local
555 ISAME( 1 ) = TRANSA.EQ.TRANAS
556 ISAME( 2 ) = TRANSB.EQ.TRANBS
557 ISAME( 3 ) = MS.EQ.M
558 ISAME( 4 ) = NS.EQ.N
559 ISAME( 5 ) = KS.EQ.K
560 ISAME( 6 ) = ALS.EQ.ALPHA
561 ISAME( 7 ) = LCE( AS, AA, LAA )
562 ISAME( 8 ) = LDAS.EQ.LDA
563 ISAME( 9 ) = LCE( BS, BB, LBB )
564 ISAME( 10 ) = LDBS.EQ.LDB
565 ISAME( 11 ) = BLS.EQ.BETA
567 ISAME( 12 ) = LCE( CS, CC, LCC )
569 ISAME( 12 ) = LCERES( 'GE', ' ', M, N, CS,
572 ISAME( 13 ) = LDCS.EQ.LDC
579 SAME = SAME.AND.ISAME( I )
580 IF( .NOT.ISAME( I ) )
693 LOGICAL ISAME( 13 ) local
830 ISAME( 1 ) = SIDES.EQ.SIDE
831 ISAME( 2 ) = UPLOS.EQ.UPLO
832 ISAME( 3 ) = MS.EQ.M
833 ISAME( 4 ) = NS.EQ.N
834 ISAME( 5 ) = ALS.EQ.ALPHA
835 ISAME( 6 ) = LCE( AS, AA, LAA )
836 ISAME( 7 ) = LDAS.EQ.LDA
837 ISAME( 8 ) = LCE( BS, BB, LBB )
838 ISAME( 9 ) = LDBS.EQ.LDB
839 ISAME( 10 ) = BLS.EQ.BETA
841 ISAME( 11 ) = LCE( CS, CC, LCC )
843 ISAME( 11 ) = LCERES( 'GE', ' ', M, N, CS,
846 ISAME( 12 ) = LDCS.EQ.LDC
853 SAME = SAME.AND.ISAME( I )
854 IF( .NOT.ISAME( I ) )
973 LOGICAL ISAME( 13 ) local
1108 ISAME( 1 ) = SIDES.EQ.SIDE
1109 ISAME( 2 ) = UPLOS.EQ.UPLO
1110 ISAME( 3 ) = TRANAS.EQ.TRANSA
1111 ISAME( 4 ) = DIAGS.EQ.DIAG
1112 ISAME( 5 ) = MS.EQ.M
1113 ISAME( 6 ) = NS.EQ.N
1114 ISAME( 7 ) = ALS.EQ.ALPHA
1115 ISAME( 8 ) = LCE( AS, AA, LAA )
1116 ISAME( 9 ) = LDAS.EQ.LDA
1118 ISAME( 10 ) = LCE( BS, BB, LBB )
1120 ISAME( 10 ) = LCERES( 'GE', ' ', M, N, BS,
1123 ISAME( 11 ) = LDBS.EQ.LDB
1130 SAME = SAME.AND.ISAME( I )
1131 IF( .NOT.ISAME( I ) )
1282 LOGICAL ISAME( 13 ) local
1429 ISAME( 1 ) = UPLOS.EQ.UPLO
1430 ISAME( 2 ) = TRANSS.EQ.TRANS
1431 ISAME( 3 ) = NS.EQ.N
1432 ISAME( 4 ) = KS.EQ.K
1434 ISAME( 5 ) = RALS.EQ.RALPHA
1436 ISAME( 5 ) = ALS.EQ.ALPHA
1438 ISAME( 6 ) = LCE( AS, AA, LAA )
1439 ISAME( 7 ) = LDAS.EQ.LDA
1441 ISAME( 8 ) = RBETS.EQ.RBETA
1443 ISAME( 8 ) = BETS.EQ.BETA
1446 ISAME( 9 ) = LCE( CS, CC, LCC )
1448 ISAME( 9 ) = LCERES( SNAME( 2: 3 ), UPLO, N,
1451 ISAME( 10 ) = LDCS.EQ.LDC
1458 SAME = SAME.AND.ISAME( I )
1459 IF( .NOT.ISAME( I ) )
1614 LOGICAL ISAME( 13 ) local
1774 ISAME( 1 ) = UPLOS.EQ.UPLO
1775 ISAME( 2 ) = TRANSS.EQ.TRANS
1776 ISAME( 3 ) = NS.EQ.N
1777 ISAME( 4 ) = KS.EQ.K
1778 ISAME( 5 ) = ALS.EQ.ALPHA
1779 ISAME( 6 ) = LCE( AS, AA, LAA )
1780 ISAME( 7 ) = LDAS.EQ.LDA
1781 ISAME( 8 ) = LCE( BS, BB, LBB )
1782 ISAME( 9 ) = LDBS.EQ.LDB
1784 ISAME( 10 ) = RBETS.EQ.RBETA
1786 ISAME( 10 ) = BETS.EQ.BETA
1789 ISAME( 11 ) = LCE( CS, CC, LCC )
1791 ISAME( 11 ) = LCERES( 'HE', UPLO, N, N, CS,
1794 ISAME( 12 ) = LDCS.EQ.LDC
1801 SAME = SAME.AND.ISAME( I )
1802 IF( .NOT.ISAME( I ) )