PROGRAM FRED

INTEGER X,I,I,ALPHA,Z

IF (ALPHA.NE.I) THEN
Z = COS(I+(4))
ELSE
BETA = Y-BETA
END IF

END

 

more