PROGRAM FRED

CHARACTER*6 ALPHA,K,BETA
INTEGER Y,I
COMMON / Y / J,Y,J,K,X,Y

BETA = X
Z = X

END

 

more