#!/bin/sh

# 2001.12.21  test updated hrcs qe, qeu.

# QEU tests; Do twice, w/ new QEU and QE, and w/ Old QE and uniform QEU

#g1=/nfs/cxc/a1/solaris/opt/CIAO_2.1_solaris/CALDB/data/chandra/tel/grating/letg/cpf/rmf/hrcleg1D1999-07-22rmfN0001.fits

g1=/nfs/cxc/a1/i686/opt/CIAO_2.2_linux/CALDB/data/chandra/tel/grating/letg/cpf/rmf/hrcleg1D1999-07-22rmfN0001.fits

cp param/ardlib.par-new-2001.12.21 param/ardlib.par
mkgarf_letgs  ./Pha/hrcf01715_002N001_pha2.fits 1  ${g1} hrcf01715_002N001_aoff1.fits ./Evt/hrcf01715_002N001_evt2.fits NONE  hrcf01715_002N001
mkgarf_letgs  ./Pha/hrcf01715_002N001_pha2.fits -1 ${g1} hrcf01715_002N001_aoff1.fits ./Evt/hrcf01715_002N001_evt2.fits NONE  hrcf01715_002N001

mv hrcf01715_002N001LEG_-1_garf.fits hrcf01715_003N001LEG_-1_garf-new.fits
mv hrcf01715_002N001LEG_1_garf.fits  hrcf01715_003N001LEG_1_garf-new.fits

rm hrcf01715_002N001_S?_LEG_*.fits


cp param/ardlib.par-old_uniform param/ardlib.par
mkgarf_letgs  ./Pha/hrcf01715_002N001_pha2.fits 1  ${g1} hrcf01715_002N001_aoff1.fits ./Evt/hrcf01715_002N001_evt2.fits NONE  hrcf01715_002N001
mkgarf_letgs  ./Pha/hrcf01715_002N001_pha2.fits -1 ${g1} hrcf01715_002N001_aoff1.fits ./Evt/hrcf01715_002N001_evt2.fits NONE  hrcf01715_002N001

mv hrcf01715_002N001LEG_-1_garf.fits hrcf01715_003N001LEG_-1_garf-old.fits
mv hrcf01715_002N001LEG_1_garf.fits hrcf01715_003N001LEG_1_garf-old.fits

 rm hrcf01715_002N001_S?_LEG_*.fits
#####

# also use the same QE file to test the new uniformity directly:

cp param/ardlib.par-newq_uniform-2001.12.21 param/ardlib.par
mkgarf_letgs  ./Pha/hrcf01715_002N001_pha2.fits 1  ${g1} hrcf01715_002N001_aoff1.fits ./Evt/hrcf01715_002N001_evt2.fits NONE  hrcf01715_002N001
mkgarf_letgs  ./Pha/hrcf01715_002N001_pha2.fits -1 ${g1} hrcf01715_002N001_aoff1.fits ./Evt/hrcf01715_002N001_evt2.fits NONE  hrcf01715_002N001

mv hrcf01715_002N001LEG_-1_garf.fits hrcf01715_003N001LEG_-1_garf-unewq.fits
mv hrcf01715_002N001LEG_1_garf.fits hrcf01715_003N001LEG_1_garf-unewq.fits

rm hrcf01715_002N001_S?_LEG_*.fits