PROGRAM TEST
LOGICAL J,Y,I,X,BETA,X,I,Z,K
BETA = Y+X
X = (BETA)-X
K = J
I = J
Z = ALPHA*ALPHA
END
more