Lines Matching refs:ALS
400 COMPLEX*16 ALPHA, ALS, BETA, BLS local
520 ALS = ALPHA
561 ISAME( 6 ) = ALS.EQ.ALPHA
685 COMPLEX*16 ALPHA, ALS, BETA, BLS local
791 ALS = ALPHA
835 ISAME( 5 ) = ALS.EQ.ALPHA
964 COMPLEX*16 ALPHA, ALS local
1068 ALS = ALPHA
1116 ISAME( 7 ) = ALS.EQ.ALPHA
1275 COMPLEX*16 ALPHA, ALS, BETA, BETS local
1385 ALS = ALPHA
1438 ISAME( 5 ) = ALS.EQ.ALPHA
1608 COMPLEX*16 ALPHA, ALS, BETA, BETS local
1728 ALS = ALPHA
1781 ISAME( 5 ) = ALS.EQ.ALPHA