Lines Matching defs:BLS
496 COMPLEX*16 ALPHA, ALS, BETA, BLS, TRANSL
648 BLS = BETA
698 ISAME( 9 ) = BLS.EQ.BETA
715 ISAME( 11 ) = BLS.EQ.BETA
852 COMPLEX*16 ALPHA, ALS, BETA, BLS, TRANSL
988 BLS = BETA
1043 ISAME( 8 ) = BLS.EQ.BETA
1058 ISAME( 9 ) = BLS.EQ.BETA
1071 ISAME( 7 ) = BLS.EQ.BETA
