PROGRAM TEST
COMMON / Y / Y
REAL ALPHA,I,K,Z,ALPHA
BETA = TAN(TAN(X))
J = J/I
ALPHA = 0
END
more