| 371 | 
  | 
                close DATOUT; | 
| 372 | 
  | 
        } | 
| 373 | 
  | 
        if ( "$spec" ne "$curspec" ) { | 
| 374 | 
< | 
                $wrapper .= " -s $spec" | 
| 374 | 
> | 
                $wrapper .= " -s $spec"; | 
| 375 | 
  | 
                $curspec = $spec; | 
| 376 | 
  | 
        } | 
| 377 | 
  | 
        $wrapper .= " -$typ $dest"; | 
| 440 | 
  | 
        } elsif ("$spec" eq "CIE-Z") { | 
| 441 | 
  | 
                $cmd .= " -c 0.024 0.123 0.853"; | 
| 442 | 
  | 
        } | 
| 443 | 
< | 
        $cmd .= " $src | rcollate -ho"; | 
| 443 | 
> | 
        $cmd .= " $src | rcollate -ho -oc 145"; | 
| 444 | 
  | 
        # print STDERR "Running: $cmd\n"; | 
| 445 | 
  | 
        system "$cmd > $dest"; | 
| 446 | 
  | 
        die "Failure running rttree_reduce" if ( $? ); | 
| 447 | 
  | 
        if ( "$spec" ne "$curspec" ) { | 
| 448 | 
< | 
                $wrapper .= " -s $spec" | 
| 448 | 
> | 
                $wrapper .= " -s $spec"; | 
| 449 | 
  | 
                $curspec = $spec; | 
| 450 | 
  | 
        } | 
| 451 | 
  | 
        $wrapper .= " -$typ $dest"; |