Index: mttroot/mtt/bin/trans/ode2obs_r
==================================================================
--- mttroot/mtt/bin/trans/ode2obs_r
+++ mttroot/mtt/bin/trans/ode2obs_r
@@ -13,10 +13,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.2  1996/08/25 08:38:14  peter
+## Error handling added.
+##
 ## Revision 1.1  1996/08/25 08:37:44  peter
 ## Initial revision
 ##
 ###############################################################
 
@@ -53,16 +56,18 @@
 FOR i := 1:MTTNu DO
   MTTUU(i,1) := MTTU(i,1);
 END;
 
 IF MTTGPCNu>0 THEN
-FOR i := 1:MTTNu DO
-  MTTUU(i+MTTNu,1) := MTTdU(i,1);
+BEGIN
+  FOR i := 1:MTTNu DO
+    MTTUU(i+MTTNu,1) := MTTdU(i,1);
+  END;
 END;
 
 MTTU := MTTU;
-MTTdU := MTTdU;
+%  MTTdU := MTTdU; ---- removed temporarily, needs def file change? 
 MTTUU := MTTUU;
 
 %Create the Y vector of output derivatives.
 MTTNyy := (MTTGPCNy+1)*MTTNy;
 Matrix MTTYY(MTTNyy,1);
@@ -163,24 +168,8 @@
 SHUT "$1_obs.r";
 quit;
 
 EOF
 
-
-#Reduce writes errors to std output with ***** in front.
-grep '\*\*\*\*\*' ode2obs_r.log >mtt_error
-# Test for errors and print if any
-err_length=$(wc -c <mtt_error)
-if [ $err_length != "0" ]
-then
-  echo MTT has failed with the following errors '...'
-  cat mtt_error
-  exit 1
-else
-  exit 0
-fi
-
-
-
-
-
+# Now invoke the standard error handling.
+mtt_error_r ode2obs_r.log