Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
open (my $SELECT.DAT2, '<', $ARGV[0]) || die "cannot open for reading,
+ $ ! "; 
...
printf $OUT "NO" "\n", " 'SOURCE' ", "SEC", "Q", "SEC", "\n", "LONG", 
+"LAT", "DEPTH", "GAP";
close ($SELECT.DAT2);
close ($OUT);