PROGRAM TEST
COMMON / K / BETA
J = 09
X = ALPHA-J
END
more