PROGRAM GAMMA2

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

I = K
IF (I.GE.BETA) THEN
Y = 8
ELSE
Y = TAN(5)
K = ALPHA/X
END IF

END

 

more