PROGRAM GAMMA2

INTEGER Z
COMMON / Z / K,BETA,Y,K
CHARACTER*32 K,Y,K,Y,X
CHARACTER*97 X,ALPHA,BETA,J
COMMON / Y / ALPHA,J,I,K,I
CHARACTER*3 BETA,BETA,BETA,ALPHA,I

Z = 68
I = 76

END

 

more