386       DOUBLE PRECISION   ALPHA, ALS, BETA, BLS, ERR, ERRMAX  local
505                            ALS = ALPHA
546                            ISAME( 6 ) = ALS.EQ.ALPHA
667       DOUBLE PRECISION   ALPHA, ALS, BETA, BLS, ERR, ERRMAX  local
772                         ALS = ALPHA
811                         ISAME( 5 ) = ALS.EQ.ALPHA
936       DOUBLE PRECISION   ALPHA, ALS, ERR, ERRMAX  local
1039                            ALS = ALPHA
1087                            ISAME( 7 ) = ALS.EQ.ALPHA
1242       DOUBLE PRECISION   ALPHA, ALS, BETA, BETS, ERR, ERRMAX  local
1335                         ALS = ALPHA
1370                         ISAME( 5 ) = ALS.EQ.ALPHA
1517       DOUBLE PRECISION   ALPHA, ALS, BETA, BETS, ERR, ERRMAX  local
1627                         ALS = ALPHA
1666                         ISAME( 5 ) = ALS.EQ.ALPHA