Searched refs:TCEIL (Results 1 - 1 of 1) sorted by relevance
| /macosx-10.10/tcl-105/tcl_ext/tcllib/tcllib/modules/math/ |
| H A D | fuzzy.eps.f90 | 14 DOUBLE PRECISION EPS,EPS3, X,Y,Z, D1MACH,TFLOOR,TCEIL,EPSF90 variable
65 YCEIL=TCEIL(Y,EPS3)
73 IF(TFLOOR(Y,EPS3).EQ.TCEIL(Y,EPS3).AND.TFLOOR(Y,EPS3).EQ.Z) THEN
76 WRITE(*,*) 'but TFLOOR(Y,EPS3)=TCEIL(Y,EPS3)=Z.'
77 WRITE(*,*) 'That is, TFLOOR/TCEIL return exact whole numbers.'
124 ! arguments of TFLOOR/TCEIL to be treated as whole numbers
129 ! on every floating-point computer, TFLOOR/TCEIL are
157 DOUBLE PRECISION FUNCTION TCEIL(X,CT) function
161 TCEIL= -TFLOOR(-X,CT)
|
Completed in 92 milliseconds