Index: mttroot/mtt/bin/trans/cr_txt2r
==================================================================
--- mttroot/mtt/bin/trans/cr_txt2r
+++ mttroot/mtt/bin/trans/cr_txt2r
@@ -14,10 +14,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.5  1998/03/09 13:36:00  peterg
+## Cosmetic change
+##
 ## Revision 1.4  1998/03/06 15:54:41  peterg
 ## Put message bcak in in simpler form
 ##
 ## Revision 1.3  1998/03/06 15:51:06  peterg
 ## Zapped the irritating error message
@@ -46,25 +49,26 @@
 ###############################################################
 
 if [ -f "$1_cr.r" ]; then
     echo "Using    $1_cr.r"
 else
-
     # Inform user
     echo "Creating $1_cr.r"
 
     echo "% Constitutive relation file for $1 ($1_cr.r)" > $1_cr.r
     echo "% Generated by MTT at `date`" >> $1_cr.r
 
 echo  >> $1_cr.r
 
-    # Include subsystem CR files - where they exist.
-    ls *_cr.r |\
+    # Recursively create subsystem CR files
+    sh $1_sub.sh 'cr_txt2r ' ''
+
+    # Include subsystem CR files
+    sh $1_sub.sh 'echo ' '_cr.r' |\
     awk '{
-    if ($1 != SYS)
       print "in \"" $1 "\";"
-    }' SYS=$1_cr.r >> $1_cr.r
+    }'  >> $1_cr.r
 
     # Copy .cr files
     awk '{
 	 if (NF>0) {
          print "mtt -q -u crcopy " $1;