1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
# ------------------------------------------------------------------------
# DEBUGGING ...
# ------------------------------------------------------------------------
set ::tclu::DEBUG 0
set ::tclu::DEBUG_FILE 0
# ------------------------------------------------------------------------
# GUIB settings ...
# ------------------------------------------------------------------------
# regular expresion for the for the endlist-string
set ::guib::settings(NAMELIST.end_regexp) {^ *&end|^ */}
# string to write for the end-of-namelist
set ::guib::settings(NAMELIST.end_string) { /}
# case-sensitivity of namelists variable names (allowed-values: 0|1)
set ::guib::settings(NAMELIST.varname_nocase) 1
# format for printing namelist's variables names
set ::guib::settings(NAMELIST.varname_format) { %25s}
# support for undefined namelist variables
set ::guib::settings(NAMELIST.variable_support_undefined) 0
# case-sensitivity of input (allowed-values: 0|1)
set ::guib::settings(INPUT.nocase) 0
# add a trailing slash to dinames (allowed-values: 0|1)
set ::guib::settings(DIRNAME.trailing_slash) 1
# whether to use only file-tail for filenames (allowed-values: 0|1)
set ::guib::settings(FILENAME.only_tail) 0
# ------------------------------------------------------------------------
# PWgui settings ...
# ------------------------------------------------------------------------
if { $tcl_platform(platform) == "unix" } {
set ::pwscf::settings(EDITOR) PWgui
set ::pwscf::settings(PAGER) PWgui
#set ::pwscf::settings(EDITOR) emacs
#set ::pwscf::settings(PAGER) {xterm -e less}
} else {
set ::pwscf::settings(EDITOR) PWgui
set ::pwscf::settings(PAGER) PWgui
}
set ::pwscf::settings(HTMLVIEWER) PWgui
set ::pwscf::settings(EDITOR.list) {PWgui emacs gedit nedit {xterm -e vi}}
set ::pwscf::settings(PAGER.list) {PWgui {xterm -e less} {xterm -e more}}
set ::pwscf::settings(HTMLVIEWER.list) {PWgui}
# launch XCRYSDEN as (allowed-values: standalone|notebook-page)
set ::pwscf::settings(XCRYSDEN.openAs) standalone
# not yet used ...
set ::pwscf::settings(PWGUI.geometry.remember) 0
set ::pwscf::settings(PWGUI.geometry) {}
# ------------------------------------------------------------------------
# PWscf settings ...
# ------------------------------------------------------------------------
set ::pwscf::settings(RUN.prefix) ""
set ::pwscf::settings(RUN.postfix) ""
set ::pwscf::settings(BINDIR) ""
set ::pwscf::settings(PW) pw.x
set ::pwscf::settings(PH) ph.x
set ::pwscf::settings(PP) pp.x
set ::pwscf::settings(PROJWFC) projwfc.x
#set ::pwscf::settings(D3) d3.x
set ::pwscf::settings(LD1) ld1.x
|
