#!/usr/bin/perl

#-----------------------------------------------------------------
# USAGE:  sdts2dem.pl froot
#
#  froot = root name of topo file, i.e., golden-CO, or 
#          tenaya-lake-CA.  NOTE!  The USGS sdts data must reside
#          in a subdirectory of the same name!
#-----------------------------------------------------------------
$froot = $ARGV[0];

$pwd = `pwd`;
print "path: $pwd\n";

$sdtsfile = `ls *L0.DDF`;
if( $sdtsfile =~ /\b(\S\S\S\S)..L0.DDF\b/) {
	$sdtsbase = $1;
}
print "sdtsbase: $sdtsbase\n";
 
$L0 = "L0";
system("/morgan/topo/sdts2dem/sdts2dem $sdtsbase $froot $L0");
system("/bin/mv $froot.dem /morgan/topo/dem/");

exit(0);