TABLE OF CONTENTS


::pwtk::f2c_number

SYNOPSIS

proc ::pwtk::f2c_number {expression} {

PURPOSE

Real numbers may have Fortran syntax, i.e., they may contain fortran double precision formatted numbers 1.0d-4; Reformat this to be Tcl-compatible, i.e., replace D with E.

ARGUMENTS

SOURCE

    return [string map -nocase {d- e- d+ e+ d0 e0 d1 e1 d2 e2 d3 e3 d4 e4 d5 e5 d6 e6 d7 e7 d8 e8 d9 e9} $expression]
}