TABLE OF CONTENTS

::pwtk::is_double

SYNOPSIS

proc ::pwtk::is_double {expression} {

PURPOSE

Return 1 if the supplied $expression is of double type, 0 otherwise. Beware that fortran "D" exponential syntax, i.e 1.0d0, is taken care of.

SOURCE

    if { [catch {::pwtk::mathParser $expression}] } {
        return 0
    } else {
        return 1
    }
}