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
- expression -- a simple math expression.
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] }