PROGRAM TEST

COMMON / Y / Y
REAL ALPHA,I,K,Z,ALPHA

BETA = TAN(TAN(X))
J = J/I
ALPHA = 0

END

 

more