PROGRAM GAMMA2

COMMON / X / Z,X,ALPHA,Z,X,Z,ALPHA,Z,I
COMMON / K / K,I,X,Z,Z,Y,Y
LOGICAL X,K,J,I,Y
CHARACTER*65 Y
INTEGER K,BETA,I,X,K

J = J
DO 4 BETA = 57,36
Z = ALPHA
0 CONTINUE
J = (SIN(1))/Y
IF (K.LE.X) GOTO 19

END

 

more