#!/usr/bin/env perl

use warnings;

# Kondo model
my $tk1 = `findrootlin GT.dat 0.5`;
chomp($tk1);

print "Kondo model, T_K=$tk1\n";

$scale1 = 1/$tk1;
system "scalex $scale1 GT.dat >GT-rescaled.dat";

# SIAM
my $tk2 = `findrootlin GT-SIAM.dat 0.5`;
chomp($tk2);

print "Anderson impurity model, T_K=$tk2\n";

$scale2 = 1/$tk2;
system "scalex $scale2 GT-SIAM.dat >GT-SIAM-rescaled.dat";
