PROGRAM FRED
LOGICAL Y,K
INTEGER X
Y = (TAN(Z))/I
IF (X.LE.BETA) THEN
Y = COS(Z/X)
END IF
END
more