Index: mttroot/mtt/bin/trans/dat22dat
==================================================================
--- mttroot/mtt/bin/trans/dat22dat
+++ mttroot/mtt/bin/trans/dat22dat
@@ -12,10 +12,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.6  2000/04/06 08:36:15  peterg
+## *** empty log message ***
+##
 ## Revision 1.5  1999/03/15 22:42:52  peterg
 ## Strip comments (put in by Octave save function)
 ##
 ## Revision 1.4  1999/03/15 21:55:36  peterg
 ## Does away with the # symbol in the file - uses _de to get Nx Ny
@@ -28,25 +31,28 @@
 Nx=`grep "MTTNx " <$1_def.r | awk '{print $3}' | sed 's/;//'`
 Ny=`grep "MTTNy " <$1_def.r | awk '{print $3}' | sed 's/;//'`
 
 case $2 in
     odeso)
-	First=1; let Last=$First+$Ny
+	First=1; Last=$First+$Ny
 	;;
     odes)
-	let First=$Ny+2; let Last=$First+$Nx
+	First=$Ny+2; Last=$First+$Nx
 	;;
     *)
-	First=1; let Last=$Ny+1
+	First=1; Last=$Ny+1
         ;;
 esac
 
 echo Creating $1_$2.dat
 
 awk '{
-  if (index($1,"#") != 1){
-    for (i=First;i<=Last;i++)
-	printf("%s ", $i);
-    printf("\n"); 
+      ## Convert to numbers
+      split(First,F,"+"); First = F[1] + F[2]
+      split(Last, L,"+"); Last  = L[1] + L[2]
+      ## Extract the data
+      if (index($1,"#") != 1){
+        for (i=First;i<=Last;i++)
+	  printf("%s ", $i);
+      printf("\n"); 
   }
 }' First=$First Last=$Last <$1_odes.dat2  > $1_$2.dat
-