PROGRAM FRED

LOGICAL Y,K
INTEGER X

Y = (TAN(Z))/I
IF (X.LE.BETA) THEN
Y = COS(Z/X)
END IF

END

 

more