399       COMPLEX            ALPHA, ALS, BETA, BLS  local
519                            ALS = ALPHA
560                            ISAME( 6 ) = ALS.EQ.ALPHA
684       COMPLEX            ALPHA, ALS, BETA, BLS  local
790                         ALS = ALPHA
834                         ISAME( 5 ) = ALS.EQ.ALPHA
962       COMPLEX            ALPHA, ALS  local
1066                            ALS = ALPHA
1114                            ISAME( 7 ) = ALS.EQ.ALPHA
1273       COMPLEX            ALPHA, ALS, BETA, BETS  local
1383                            ALS = ALPHA
1436                            ISAME( 5 ) = ALS.EQ.ALPHA
1605       COMPLEX            ALPHA, ALS, BETA, BETS  local
1725                         ALS = ALPHA
1778                         ISAME( 5 ) = ALS.EQ.ALPHA