pwtk.tcl

::pwtk::pseudo_dir

::pwtk::pseudo_dir

SYNOPSIS

proc ::pwtk::pseudo_dir {args} {

PURPOSE

Set or query the directory where pseudo-potential files are located.

USAGE

   Set mode:

     ::pwtk::pseudo_dir value    

   Query mode:

     ::pwtk::pseudo_dir

RETURN VALUE

The value of the pseudo_dir.

SOURCE

    variable QEdir

    if { [llength $args] == 0 } {
        return [varvalue QEdir(ESPRESSO_PSEUDO)]
    } elseif { [llength $args] != 1 } {
        pwtk::error "wrong # arguments, must be: \"pseudo_dir value\",\nbut got \"pseudo_dir $args\"" 1
    }

    set pseudo_dir [lindex $args 0]
    
    if { ! [file isdirectory $pseudo_dir] } {
        ::pwtk::warning "pseudo_dir \"$pseudo_dir\" does not exist."
    }

    return [set QEdir(ESPRESSO_PSEUDO) $pseudo_dir]
}

TABLE OF CONTENTS

::pwtk::pseudo_dir