PROGRAM TEST

COMMON / BETA / J,Z,K
COMMON / BETA / K,J,ALPHA
LOGICAL Z,J,Y,J,ALPHA
COMMON / BETA / BETA
REAL Y,J
COMMON / BETA / I,K

BETA = 30
Y = BETA+Z

END

 

more