TABLE OF CONTENTS

::pwtk::input::namelistClear

SYNOPSIS

proc ::pwtk::input::namelistClear {args} {

USAGE

   ::pwtk::input::namelistClear name1 ?name2? ?...?

PURPOSE

Clear the content of specified namelists

ARGUMENTS

SOURCE

    global ::pwtk::input::namelist

    foreach name $args {
        # clear the content of the namelist
        
        if { [info exists ::pwtk::input::namelist($name)] } {
            array unset ::pwtk::input::namelist $name,var=*         
            unset ::pwtk::input::namelist($name)
        }
        # N.B. if exist, clear also the namelist's affixCards (see:
        # ::pwtk::input::namelist.affix) because without the namelist,
        # the affixCards make no sense
        cardClear $name.affixCards
    }
}