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