PROGRAM FRED

COMMON / J / BETA,BETA,ALPHA,Y,BETA,I,BETA,I,Z,X,X
COMMON / BETA / K
COMMON / J / J,X

J = I-I
K = I*J

END

 

more