PROGRAM GAMMA2

CHARACTER*6 J
REAL X,I,BETA,X,BETA,Z

ALPHA = 1
Z = X
IF (Y.EQ.ALPHA) GOTO 4
K = K
Z = (ALPHA-(3))*Y

END

 

more