PROGRAM FRED

COMMON / Z / Y,ALPHA,Y,X,Z

Y = SIN(I-I)
BETA = J*X
Y = BETA/J

END

 

more