#!/bin/sh  
# \
exec oagtclsh "$0" "$@"

set usage {usage: processJobArea1 -rootname <string>}

set rootname ""
set args $argv
if {[APSStrictParseArguments {rootname}] || \
	![string length $rootname] } {
    return -code error "$usage"
}

if [catch {exec sddsprocess $rootname.aper -pipe=out \
	     "-define=column,xClipped1,xClipped 0.005 > ? 0.005 : xClipped $ ,units=m" \
	     -process=yClipped,integral,Area1,functionOf=xClipped1 \
             | sddscollapse -pipe \
             | sddsprocess -pipe=in $rootname.proc1 \
             "-reprint=column,runName,$rootname" \
	     "-redefine=column,Time,[clock seconds],units=s,type=long" \
 	     "-redefine=column,DAPenalty,Area1 chs" } result] {
puts "failAndExit:$result"
}

#set Area_check 
puts "Area_check :[exec sdds2stream -col=Area $rootname.proc1 ]"
puts "Area1_check:[exec sdds2stream -col=Area1 $rootname.proc1 ]"

exit 0




