Index: mttroot/mtt/bin/trans/ode_r2lang
==================================================================
--- mttroot/mtt/bin/trans/ode_r2lang
+++ mttroot/mtt/bin/trans/ode_r2lang
@@ -13,10 +13,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.1  1998/05/23 16:17:14  peterg
+## Initial revision
+##
 ###############################################################
 
 # Set up the language specific stuff
 language=$2
 case $language in
@@ -126,11 +129,14 @@
   for i = 1:nyz
     printf("  mttui$Lb%i$Rb = mttx$Lb%i$Rb;\n",i,i+nx);
   end;
   printf("\n");
 
-  printf("mttui = fsolve('$1_odea',mttui);\n");
+  printf("[mttui,info] = fsolve('$1_odea',mttui);\n");
+  printf("if (info!=1)\n"); 
+  printf("  error('fsolve has not converged')\n");
+  printf("end\n");
   printf("\n");
 
   printf("$Lc====== Set up the internal input variables ======$Rc\n");
   for i = 1:nyz
     printf("  mttui%i = mttui$Lb%i$Rb;\n",i,i);