PROGRAM GAMMA2

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

X = BETA*J
K = I*(Z)
X = 66
I = TAN((21)/K)
DO 75 ALPHA = 8,11
BETA = 9
30 CONTINUE

END

 

more