Index: mttroot/mtt/bin/trans/awk/rbg_fig2m.awk
==================================================================
--- mttroot/mtt/bin/trans/awk/rbg_fig2m.awk
+++ mttroot/mtt/bin/trans/awk/rbg_fig2m.awk
@@ -10,10 +10,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.44  2002/05/25 09:23:47  gawthrop
+## Self-naming components: name is mttTYPE or mttTYPE_2 ...
+##
 ## Revision 1.43  2002/05/22 10:33:18  gawthrop
 ## Nameless components are now named according to type - replaces old
 ## mtt1 etc style.
 ##
 ## Revision 1.42  2002/03/26 12:05:27  geraint
@@ -554,10 +557,13 @@
 	printf(" ")   >> fig_file; # Put space after header fields
     printf("\n") >> fig_file
     }
 
 # Header
+  if ($1=="#FIG") 
+    printf("%s", $0)  >> head_file;
+
   if ( NF<3 ) {
 	printf("%s", $1)  >> head_file;
         for (i=2; i<=NF; i++)
 	  printf(" %s", $i)  >> head_file;
 	if (NF==1)