( D0<                            compare double number to zero )

need d<
: d0<                             ( d --- f )
  0 0                             ( put double 0 on stack)
  d<                              ( compare d with 0)
;