File: commands.tcl

package info (click to toggle)
espresso 6.7-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 311,068 kB
  • sloc: f90: 447,429; ansic: 52,566; sh: 40,631; xml: 37,561; tcl: 20,077; lisp: 5,923; makefile: 4,503; python: 4,379; perl: 1,219; cpp: 761; fortran: 618; java: 568; awk: 128
file content (13 lines) | stat: -rw-r--r-- 503 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
# ------------------------------------------------------------------------
#
# ------------------------------------------------------------------------
proc ::pwscf::d3ReadFilter {moduleObj channel} {

    # d3.x formatted input file should have the &INPUTPH namelist

    set status [::pwscf::readFilter::findNamelists $moduleObj $channel INPUTPH errMsg]
    if { $status == 0 } {
	$moduleObj readFileWrongFormat d3.x $errMsg
    }
    return [readFilter::default $moduleObj $channel {logical amass}]
}