PROGRAM GAMMA2

LOGICAL BETA,Z,Z,J,Z

IF (Z.GE.K) THEN
ALPHA = 70
BETA = TAN(SIN(ALPHA-(X)))
ELSE
X = ALPHA
J = 9
Z = K
K = 5
END IF
BETA = Y
IF (BETA.EQ.ALPHA) THEN
K = 46
K = Y*Y
ELSE
BETA = J/(25)
END IF
Z = 3
IF (BETA.LE.J) GOTO 48
ALPHA = (ALPHA/K)/K

END

 

more