#!/usr/bin/env perl

$tk = 1.1e-5;
$scale = 1/$tk;

system "scalex $scale magnetization.dat >magnetization-rescaled.dat";
