#!/usr/bin/env perl

use warnings;

chomp($scale = `getparam scale param.loop`);
chomp($last = `getiter`);

$inv = 1/$scale;

system "scalexy $scale $inv dmft/$last-imaw.dat >imaw.dat";
system "scalexy $scale $scale dmft/$last-imsigma.dat >imsigma.dat";
system "scalexy $scale $scale dmft/$last-resigma.dat >resigma.dat";