#!/usr/bin/perl -w
# Quick hack to fix some corrupt DLG data from http://bard.wr.usgs.gov/
# No idea if this is "correct"; I'm just hacking in a couple of header lines
# that seem to work.

$line = 0;
while (<>) {
    if ($line == 2) {
        print "                                                            20 370 0\n";
    } elsif ($line == 3) {
        print "     3     1    10     2 0.61000000000D+00     4     0     4     1  0  0\n";
    } else {
        print $_;
    }
    $line++;
}