TABLE OF CONTENTS

::pwtk::ppi::get

SYNOPSIS

proc ::pwtk::ppi::get {} {

PURPOSE

Return the content of the pp.x input file.

SOURCE

    loadDefaults_
    
    set inputpp_ [::pwtk::input::namelistGet INPUTPP]
    set plot_    [::pwtk::input::namelistGet PLOT]

    # INPUTPP namelist must be always present (even if empty)
    if { $inputpp_ == {} } {
        set inputpp_ " &INPUTPP
 /"
    }
    
    return "$inputpp_\n$plot_"
}