PROGRAM FRED

CHARACTER*6 BETA
COMMON / I / BETA,X,Z,X,J,Y,J

J = ALPHA-Y

END

 

more