TABLE OF CONTENTS

::pwtk::CELL_PARAMETERS_math_parser

SYNOPSIS

proc ::pwtk::pwi::CELL_PARAMETERS_math_parser {content} {

PURPOSE

Specially supplied math-parser for CELL_PARAMETERS card: to yield nicely formated output.

SOURCE

    set parsedContent ""
    foreach line [split [::pwtk::skipEmptyLines $content] \n] {
        
        set len [llength $line]
        if { $len != 3 } {
            ::pwtk::error "wrong number of fields, $len, in CELL_PARAMETERS card, must be 3"
        }
        set vx  [::pwtk::mathParser [lindex $line 0]]
        set vy  [::pwtk::mathParser [lindex $line 1]]
        set vz  [::pwtk::mathParser [lindex $line 2]]

        append parsedContent [format "  %20.16f %20.16f %20.16f\n" $vx $vy $vz]
    }
    
    return $parsedContent
}