Lines Matching refs:Then
5084 #--THEN WE RETURN SGN*SIN(R). SGN*SIN(R) IS COMPUTED BY
5137 #--THEN WE RETURN SGN*COS(R). SGN*COS(R) IS COMPUTED BY
5582 #--Then, we need to compute A := R-P and a := r-p
6013 #--Then, we need to compute A := R-P and a := r-p
7566 # then load the exponent with +/1 $3fff.
8330 # if the input is exactly equal to one, then exit through ld_pzero.
8474 #--IF 1+Z > 3/2 OR 1+Z < 1/2, THEN X, WHICH IS ROUNDING 1+Z,
8498 #--CASE 1: 1+Z < 1, THEN K = -1 AND Y-F = (2-F) + 2Z
8499 #--CASE 2: 1+Z > 1, THEN K = 0 AND Y-F = (1-F) + Z
8848 # 4. Overwrite r := r * log2. Then #
8864 # log_10(2)/64 and L10 is the natural log of 10. Then #
9258 # the src value. then, jump to the norm part of the routine.
9372 # If (L < 0) then #
9380 # 3.2 If R > Y, then { R := R - Y, Q := Q + 1} #
9390 # 5.1 If R < Y/2, then R = MOD(X,Y) = REM(X,Y). Go to #
9392 # 5.2 If R > Y/2, then { set Last_Subtract := true, #
9395 # then { Q := Q + 1, signX := -signX }. #
9572 #..If Carry is set, then Y < (Carry,D1,D2) < 2Y. Otherwise, Carry = 0
10131 # instruction of transcendental 060FPLSP emulation, then it has already #
10165 # 060FPLSP should be inexact. So, if inexact is enabled, then we create #
Indexes created Thu Oct 23 22:10:10 GMT 2025