#!/usr/bin/perl
#Cheapo script to get run of the electronic minimization parts of dft++ output files
#This cuts my file sizes by 2/3, but this will vary depending on your system
#Evan Reed, Sept. 11, 2000


open(STDIN,'-');

$printvar=1;
while ($line=<STDIN>) {
  if ($line =~ /minimize/) {
    $printvar=0;
    print($line);
    printf("removed text here\n");
    }
  if ($line =~ /Energy converged to/) {$printvar=1;}
  if ($printvar==1) {print($line);}
  }

