Index: mttroot/mtt/bin/trans/m/cbg2ese.m
==================================================================
--- mttroot/mtt/bin/trans/m/cbg2ese.m
+++ mttroot/mtt/bin/trans/m/cbg2ese.m
@@ -21,10 +21,13 @@
   ## ###############################################################
   ## ## Version control history
   ## ###############################################################
   ## ## $Id$
   ## ## $Log$
+  ## ## Revision 1.33  2000/09/01 08:05:32  peterg
+  ## ## Reformatted with out changing function
+  ## ##
   ## ## Revision 1.32  1998/11/16 13:01:19  peterg
   ## ## Fixed problem with repetitions>1 due to new data structures -- now
   ## ## computes initial next_bond correctly
   ## ##
   ## ## Revision 1.31  1998/09/24 12:57:44  peterg
@@ -393,13 +396,12 @@
 			  structure_name(which_index,:), value-k+1, ...
 			  comp_name, full_name, repetition);
 	    	endfor;
  	      endfor;
  	    endif;
-	    
-	  end;
-    	end;
+	  endif
+	endfor
       endfor			# [subsystem,comp_name] = CBG_field
     endif			# struct_contains(CBG,field)
   endfor			# i=1:2
   ## Close the files
   fclose(ese_file);