EXAFS Scan

#!/usr/bin/env perl
use Spectra; 
my $status = 1;
#
# an EXAFS scan
#
if( !Spectra::scan( type => "exafs"))
{
    print " Failed to execute an exafs scan \n"; 
    $status = 0;
    goto finish;
}
if( !Spectra::scan( type => "exafs",
		    exafs_file => "exafs1.exa"))
{
    print " Failed to execute an exafs scan \n"; 
    $status = 0;
    goto finish;
}

finish:
    $status;

The file exafs1.exa may contain the following lines:

! 
! Data 
%d 
 Col 1 Energy  FLOAT 
 Col 2 10  FLOAT 
 Col 3 0.5  FLOAT 
 Col 4 Edge  FLOAT 
 Col 5 Power  FLOAT 
     74750       10      0.5        0        0 
     74970      0.5      0.5        0        0 
     75040      0.5      0.5    75000        1 
     76000        0      0.5        0        0