TABLE OF CONTENTS


::pwtk::pwi::deleteAtomsLast

SYNOPSIS

proc ::pwtk::pwi::deleteAtomsLast {natoms} {

PURPOSE

Delete the last $natoms atoms from the ATOMIC_POSITIONS card.

ARGUMENTS

SOURCE

    set nat [::pwtk::pwi::getNAtoms]
    ::pwtk::pwi::deleteAtomsRange $nat-$natoms+1  $nat
}