# | 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 |
> | Changed lines |