PROGRAM GAMMA2

REAL Y,Y

DO 80 K = 93,1
I = (6)+BETA
68 CONTINUE
ALPHA = J
K = BETA/J
IF (ALPHA.GE.I) THEN
Z = X-Y
X = I
END IF
J = X

END

 

more