PROGRAM GAMMA2

LOGICAL K,X,Z,BETA
LOGICAL Z,BETA,Z
CHARACTER*3 K,ALPHA,Z,Z,K,Z
LOGICAL I,Y

ALPHA = 2
I = Z
Y = X
BETA = TAN(I)
Z = ALPHA-ALPHA
IF (K.LE.Z) GOTO 58
DO 11 J = 5,55
X = J+BETA
90 CONTINUE

END

 

more