| # | Line 24 | Line 24 | my $nproc = 1; | |
|---|---|---|
| 24 | my $doforw = 0; | |
| 25 | my $doback = 1; | |
| 26 | my $pctcull = 90; | |
| 27 | < | my $gunit = "Meter"; |
| 27 | > | my $gunit = "meter"; |
| 28 | my @dim; | |
| 29 | # Get options | |
| 30 | while ($#ARGV >= 0) { | |
| # | Line 129 | Line 129 | if ( $geout ) { | |
| 129 | while (<MGFSCN>) { print $_; } | |
| 130 | close MGFSCN; | |
| 131 | print "xf\n"; | |
| 132 | < | print "\t\t</MGFblock>\n"; |
| 132 | > | print "</MGFblock>\n"; |
| 133 | print "\t</Geometry>\n"; | |
| 134 | } | |
| 135 | # Set up surface sampling | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines (old) |
| > | Changed lines (new) |