Clean up MakeFile and use gfortran. Added install instructions for PerlQt3 (for SL6). General clean up.

trimsp/src/Makefile

@@ -3,30 +3,23 @@
 # 17-Jun-2002 TP, use standard f77 code; use
 #             ranlux random number generator of the CERN mathlib
 #
-#FC=g77 -ff90
-FC=g77
+# 4-Feb-2013 ZS, clean up makefile and include random number
+#            generator in the code. Use gfortran which is now
+#            a standard part of gcc in moder systems.
+#
+FC=gfortran
 #DEBUG = -g -O
 DEBUG =
 #WARN= -Wall -W
-WARN = -Wno-globals
-DIALECT = -fno-backslash -fno-automatic -finit-local-zero
+WARN= 
+#DIALECT = -fno-backslash -fno-automatic -finit-local-zero
 #DIALECT = -finit-local-zero
+DIALECT =
 OPS=-c $(DIALECT) $(WARN) $(DEBUG)
-# for random number generator
-#CERNLIB_DIR = $(CERN_ROOT)/lib
-#
-all : trimsp7l_zs.o trimsp7l_zs datmak7l_tp.o datmak7l_tp
 
-trimsp7l_zs.o :  trimsp7l_zs.F
-	$(FC) $(OPS) $< 
+all : trimsp7l
 
-trimsp7l_zs : trimsp7l_zs.o
-	$(FC) -o $(HOME)/bin/$@ $< 
-
-datmak7l_tp.o :  datmak7l_tp.F
-	$(FC) $(OPS) $< 
-
-datmak7l_tp : datmak7l_tp.o
+trimsp7l : trimsp7l.F
 	$(FC) -o $(HOME)/bin/$@ $< 
 
 clean:

trimsp/src/TrimSPGUI/INSTALL

@@ -0,0 +1,18 @@
+This GUI uses PerlQt3. If this package is available in your distribution
+then you do not need to do anything, simply run the TrimSP script as is.
+If your distribution does not come with a PerlQt3 package, the easiest way
+to install it is through perl CPAN.
+
+Before you start, make sure that the follwoing packages are installed. 
+For example, for SL6 and similar:
+
+yum install perl-CPAN perl-YAML perl-Parse-CPAN-Meta perl-Test-CPAN-Meta libX11-devel libXext-devel libXaw-devel libXi-devel qt3-devel
+
+then install the PerlQt3 module in CPAN using the following command:
+
+cpan
+notest install GGARAND/PerlQt-3.008.tar.gz
+
+Now, you are ready to run the GUI.
+
+For questions and support please constact Zaher Salman <zaher.salman@psi.ch>

trimsp/src/TrimSPGUI/TrimSPGUI.pl

@@ -2146,6 +2146,7 @@ sub PrepLayers
     for (my $i=1;$i<=7;$i++) {
 	my $LayerName = "BoxL".$i;
 	my $LayerAttrib = child($LayerName);
+	print $LayerAttrib."\n";
 	if ($i<=$All{"NL"}) {
 	    $LayerAttrib->setDisabled(0);
 	} else {