TABLE OF CONTENTS

::pwtk::atmPosToCrystal

SYNOPSIS

proc ::pwtk::atmPosToCrystal {latvec atmPos} {

PURPOSE

Transform Cartesian atomic-positions (aka atmPos) to crystal atomic-positions. For more details, see: ::pwtk::coorToCrystal.

SOURCE

    return [coorToAtmPos [coorToCrystal $latvec [atmPosToCoor $atmPos]] $atmPos]    
}