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