PROGRAM TEST

LOGICAL ALPHA,X,J,I,Y,BETA,ALPHA,J
REAL J,X,ALPHA,I,Z,BETA

Z = BETA
Y = (19)*I
Z = J

END

 

more