PROGRAM GAMMA2

REAL I
REAL J,Y,BETA,I
CHARACTER*8 ALPHA,K,Y,Y,I
LOGICAL BETA,Z,Y,I,K,Z
INTEGER X,BETA,Z,X

ALPHA = 5
Y = (16)/I

END

 

more