PROGRAM FRED
COMMON / Z / Y,ALPHA,Y,X,Z
Y = SIN(I-I)
BETA = J*X
Y = BETA/J
END
more