#!/bin/csh -f
# Correct sky values to mode.
if ($1 == ^) then
   caterr <<'EOF'

   Correct sky intensities to be the sky mode intensities.
     usage: skycorrect catalog
     Arguments:
	catalog - catalog to be corrected
      Output: Diagnostics from the processing.
'EOF'
  exit
endif
 
set delta = `<$1 catlist r1 sbr|opstrm r r - =|statstrm a`
echo Sky correction = $delta
sky -3 $delta $1
