From 469a4e6b3a7073e20248307c18ec3b97c8a12984 Mon Sep 17 00:00:00 2001 From: Zaher Salman Date: Mon, 14 Sep 2009 14:18:43 +0000 Subject: [PATCH] Corrected C error in stopicru and other tweeks. --- trimsp/TrimSPGUI/TrimSP | 4 ++-- trimsp/TrimSPGUI/TrimSPGUI.pl | 6 +++--- trimsp/TrimSPGUI/TrimSPGUItabs.ui.h | 4 ++-- 3 files changed, 7 insertions(+), 7 deletions(-) diff --git a/trimsp/TrimSPGUI/TrimSP b/trimsp/TrimSPGUI/TrimSP index feed1db..01f5b36 100755 --- a/trimsp/TrimSPGUI/TrimSP +++ b/trimsp/TrimSPGUI/TrimSP @@ -2,6 +2,6 @@ # Copyright 2009 by Zaher Salman and the LEM Group. export TRIMBIN=/usr/local/bin/trimsp7l -export PERLLIB=$HOME/Projects/TrimSPGUI -perl $HOME/Projects/TrimSPGUI/TrimSPGUI.pl +export PERLLIB=$HOME/LEM/simulation/trimsp/TrimSPGUI +perl $HOME/LEM/simulation/trimsp/TrimSPGUI/TrimSPGUI.pl diff --git a/trimsp/TrimSPGUI/TrimSPGUI.pl b/trimsp/TrimSPGUI/TrimSPGUI.pl index eb62af4..8993487 100644 --- a/trimsp/TrimSPGUI/TrimSPGUI.pl +++ b/trimsp/TrimSPGUI/TrimSPGUI.pl @@ -1,6 +1,6 @@ # Form implementation generated from reading ui file 'TrimSPGUItabs.ui' # -# Created: Mon Sep 14 15:05:11 2009 +# Created: Mon Sep 14 16:18:29 2009 # by: The PerlQt User Interface Compiler (puic) # # WARNING! All changes made in this file will be lost! @@ -1879,11 +1879,11 @@ sub StartSequenceOne # Use windoz version # system("cp $FILENAME.inp eingabe1.inp; wine TrimSP7L.exe"); # Use Linux version - $cmd = "cp $FILENAME.inp eingabe1.inp; ".$ENV{'TRIMBIN'}; - system($cmd); $Progress=$Progress+90/$#SValues; Progress->setProgress($Progress); Progress->update(); + $cmd = "cp $FILENAME.inp eingabe1.inp; ".$ENV{'TRIMBIN'}; + system($cmd); foreach ("err","out","rge") { system("mv -f ausgabe1.$_ $FILENAME.$_"); diff --git a/trimsp/TrimSPGUI/TrimSPGUItabs.ui.h b/trimsp/TrimSPGUI/TrimSPGUItabs.ui.h index 399ff1d..80ca3f1 100755 --- a/trimsp/TrimSPGUI/TrimSPGUItabs.ui.h +++ b/trimsp/TrimSPGUI/TrimSPGUItabs.ui.h @@ -500,11 +500,11 @@ void TrimSPGUI::StartSequenceOne() # Use windoz version # system("cp $FILENAME.inp eingabe1.inp; wine TrimSP7L.exe"); # Use Linux version - $cmd = "cp $FILENAME.inp eingabe1.inp; ".$ENV{'TRIMBIN'}; - system($cmd); $Progress=$Progress+90/$#SValues; Progress->setProgress($Progress); Progress->update(); + $cmd = "cp $FILENAME.inp eingabe1.inp; ".$ENV{'TRIMBIN'}; + system($cmd); foreach ("err","out","rge") { system("mv -f ausgabe1.$_ $FILENAME.$_");