#!/usr/bin/env perl
# Translate a param file for "NRG Ljubljana" into an equivalent param
# file for a model without impurities (CLEAN).
# Rok Zitko, zitko@theorie.physik.uni-goettingen.de, Nov 2008

use warnings;

if (@ARGV != 1) {
  die "Usage: transCLEAN <filename>\n";
}

while (<>) {
  if (/^model/) {
    print "model=CLEAN\n";
  } 
  elsif (/^ops/ || /^spec[dbst]/ ) {
    # skip
  }
  else {
    print;
  }
}