#!/usr/bin/env perl

use warnings;

$z=shift;

open (F, "<../discr_$z.info.dat") or die;
$nr = int(<F>);
#$dim1 = int(<F>);
#$dim2 = int(<F>);
close(F);

$nr -= 2;

open (F, "<../discr_$z.tl.dat") or die;

chomp($t11r = <F>); 
chomp($t11i = <F>); 
chomp($t12r = <F>); 
chomp($t12i = <F>); 
chomp($t21r = <F>); 
chomp($t21i = <F>); 
chomp($t22r = <F>); 
chomp($t22i = <F>); 

open (O, ">V11.dat") or die;
print O "$t11r\n";
close O;

open (O, ">V12.dat") or die;
print O "$t12r\n";
close O;

open (O, ">V21.dat") or die;
print O "$t21r\n";
close O;

open (O, ">V22.dat") or die;
print O "$t22r\n";
close O;

open (O11, ">xi1.dat") or die;
open (O12, ">xi3.dat") or die; # note the order!!
open (O21, ">xi4.dat") or die;
open (O22, ">xi2.dat") or die;

while (<F>) {
  chomp($hr = $_);
  chomp($hi = <F>);
  print O11 "$hr\n";
  chomp($hr = <F>);
  chomp($hi = <F>);
  print O12 "$hr\n";
  chomp($hr = <F>);
  chomp($hi = <F>);
  print O21 "$hr\n";
  chomp($hr = <F>);
  chomp($hi = <F>);
  print O22 "$hr\n";
}

close (F);
close (O11);
close (O12);
close (O21);
close (O22);

open (F, "<../discr_$z.el.dat") or die;
open (O11, ">zeta1.dat") or die;
open (O12, ">zeta3.dat") or die; # !!
open (O21, ">zeta4.dat") or die;
open (O22, ">zeta2.dat") or die;

while (<F>) {
  chomp($hr = $_);
  chomp($hi = <F>);
  print O11 "$hr\n";
  chomp($hr = <F>);
  chomp($hi = <F>);
  print O12 "$hr\n";
  chomp($hr = <F>);
  chomp($hi = <F>);
  print O21 "$hr\n";
  chomp($hr = <F>);
  chomp($hi = <F>);
  print O22 "$hr\n";
}

close (F);
close (O11);
close (O12);
close (O21);
close (O22);