PROGRAM FRED

LOGICAL Z,X,Y,I,ALPHA,K,K,Z,J,J,J
LOGICAL K,BETA,K
LOGICAL J

Z = K+ALPHA
I = BETA
BETA = 31

END

 

more