#! /bin/csh -f

if ( $#argv != 1 ) then
  echo ""
  echo "new_cr CR"
  echo ""
  exit
endif

unalias ds9
rsh sonar -e carrot $argv[1] > /tmp/carrot.jeneen
@ beg = `grep FIRST /tmp/carrot.jeneen | awk '{print $5}' | awk -F\. '{print $1}'`
@ end = `grep LAST /tmp/carrot.jeneen | awk '{print $5}' | awk -F\. '{print $1}'`
@ end = $end + 2

@ i = $beg
while ( $i <= $end )
  set dir = `peq -w prog:mdi,level:lev1.5,series:fd_Ic_6h_01d\[$i] | grep PDS | awk '{print $3}'` 
  ds9 -zoom .5 -zscale -cmap bb -geometry 720x810 $dir/*fits
  @ i++
end