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.8  1998/11/20 09:48:31  peterg
+## Remove the _lower stuff -- see idf this works now.
+##
 ## Revision 1.7  1998/04/14 17:46:28  peterg
 ## To avoid clashes when creating for more thsan one top level file, adds
 ## _lower attribute to lower lecel constitutive relationship files.
 ## .constitutive relationship files only in top level _constitutive
 ## relationship files.
@@ -56,11 +59,12 @@
 # Initial revision
 #
 ###############################################################
 
 # The level of the recursion null at top level; _lower at lower levels.
-level=$2
+
+level='' ## Used to be $2 - now set to null.
 
 crfile=$1_cr.r
 CRFILE=$1_cr.r
 
 if [ -f "$crfile" ]; then
@@ -91,19 +95,29 @@
          print "mtt -q -u crcopy " $1; 
          }
     }' $1_cr.txt  | sh
 
     # Include the .cr files
-    awk '{
-	 if (NF>0) {
-         print "in \"" $1 ".cr\";"
-         }
-    }' $1_cr.txt  >> $crfile
+#    awk '{
+#	 if (NF>0) {
+#         print "in \"" $1 ".cr\";"
+#         }
+#    }' $1_cr.txt  >> $crfile
 
+    ## list of the crs
+    crs=`cat $1_cr.txt`
+    for cr in $crs; do
+        crf=$cr'_cr.r'
+	if [ -e "$crf" ]; then
+	   printf "\045 (%s exists)\n" $crf >> $crfile
+	else
+	   printf 'in "%s.cr";\n' $cr >> $crfile
+	fi
+    done
   fi
 echo 'END;' >> $crfile
 
 fi
 # Now invoke the standard error handling.
 #mtt_error mtt_error.txt