--- a/materials/parsematerial.pl	Thu Feb 26 06:50:22 2009 +0000
+++ b/materials/parsematerial.pl	Thu Feb 26 07:14:20 2009 +0000
@@ -128,13 +128,18 @@
   $str =~ s/\|/+/g;
   print "$str\n";
 } elsif ($opt_tf) {
+  print "/set gmat_names=".join(' ', @entries)."\n";
+  print "/set gmat_ntypes=".join(' ', map(lc($data{$_}{"type"}), @entries))."\n";
+
   my %types = ();
-  print "/set gmat_names=".join(' ', @entries)."\n";
-  print "/set gmat_types=".join(' ', map(lc($data{$_}{"type"}), @entries))."\n";
   foreach my $name (@entries) {
     push(@{$types{$data{$name}{"type"}}}, lc($name));
   }
-  foreach my $type (sort { $a cmp $b } keys %types) {
+
+  my @typet = sort { $a cmp $b } keys %types;
+  print "/set gmat_types=".join(' ', map(lc($_), @typet))."\n";
+  
+  foreach my $type (@typet) {
     print "/set gmat_type_".lc($type)."=".join('|', @{$types{$type}})."\n";
   }
 } else {