FORTRAN

PROGRAM GAMMA2

REAL K,X,ALPHA
COMMON / ALPHA / Z,Y,J,J,BETA,K

I = K/(Y*ALPHA)
IF (ALPHA.GT.Y) THEN
J = K-Z
I = TAN(4)
K = SIN(I+Y)
J = I*J
X = ALPHA
Z = 5
K = ALPHA*I
ELSE
I = ALPHA
END IF

END