#!/usr/bin/perl

$level=4;
$M=60;

if (scalar @ARGV) {
  $level=$ARGV[0];
  $M=$ARGV[1];
}

print "Symmetryall Level=$level M=$M\n";

open OUT, ">sym.$level.$M.txt";
open OUTHTML, ">sym.$level.$M.html";
open IN,"lam.$level.$M.txt";
$a=<IN>;
for ($i=1;$i<=$M;$i++) {
  print "$i "; 
  $ii=substr "00$i",-3,3;
  $a=<IN>;
  chop $a;
  $b=`./symmetry.e < pe/pe.nbr.xyz.$level.$ii.txt`;
  print OUT "$i $a $b";
  print OUTHTML "$i, $a, $b <img src=pe/pe.nbr.xyz.$level.$ii.png> <br> \n";
}