PROGRAM FRED

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

K = K/Y

END

 

more