#!/usr/sbin/perl
#
# mends schedule file in accord with number of features in FEATS_LIB
@lines=`cat $ENV{"FEATS_LIB"}`;
($nfeat)=$lines[2]=~/\s+(\d+)\s+/;
# print $nfeat,"\n";
foreach (<>)
  {
  if (/^#\s+MTH\s+NRNG/)
    {
    @F=split;$last=$F[$#F];
    if($last<$nfeat)
      {
      chop;
      foreach ($last++; $last<=$nfeat;$last++)
	{
	$_.=sprintf("%5d",$last);
	}
      $_.="\n";
      }
    }
  elsif (/\s+\d+\s+\d+\s+\d+/)
    {
    @F=split;$last=@F-3;
    if($last<$nfeat)
      {
      chop;
      foreach ($last++; $last<=$nfeat;$last++)
	{
	$_.=sprintf("%5.2f",$F[$#F]);
	}
      $_.="\n";
      }
      
    }
  print;
  }
