scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixing regsub syntax bug 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@1567 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
kokalj 2005-01-17 11:47:01 +00:00
parent 116e66e35a
commit 8d25e42f5c
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
GUI/PWgui/src/run.itcl
View File

@ -19,7 +19,7 @@
# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
#
#
# $Id: run.itcl,v 1.1 2004-09-20 07:08:34 kokalj Exp $
# $Id: run.itcl,v 1.2 2005-01-17 11:47:01 kokalj Exp $
#
proc ::pwscf::run::run {guiObj {init 1}} {
@ -241,7 +241,8 @@ proc ::pwscf::run::_init {guiObj} {
# get the output-file from the input-file; also the error file
set head [regsub {\.(inp|in)$} $inpFile {}]
#set head [regsub {\.(inp|in)$} $inpFile {}]
regsub {\.(inp|in)$} $inpFile {} head
set run(inpFile,$moduleObj) $inpFile
set run(outFile,$moduleObj) $head.out
set run(errFile,$moduleObj) $head.err