! @(#)ccdtest.ctx	17.1.1.1 (ES0-DMD) 01/25/02 17:49:40
!===========================================================================
! Copyright (C) 1995 European Southern Observatory (ESO)
!
! This program is free software; you can redistribute it and/or 
! modify it under the terms of the GNU General Public License as 
! published by the Free Software Foundation; either version 2 of 
! the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public 
! License along with this program; if not, write to the Free 
! Software Foundation, Inc., 675 Massachusetss Ave, Cambridge, 
! MA 02139, USA.
!
! Corresponding concerning ESO-MIDAS should be addressed as follows:
!	Internet e-mail: midas@eso.org
!	Postal address: European Southern Observatory
!			Data Management Division 
!			Karl-Schwarzschild-Strasse 2
!			D 85748 Garching bei Muenchen 
!			GERMANY
!===========================================================================
!
! @(#)ccdtest.ctx	17.1.1.1 (ESO-SDAG) 01/25/02 17:49:40
! ---------------------------------------------------------------------------
!.IDENTIFICATION: ccdtest.ctx
!.PURPOSE:        contains the setup of the ccd test package
!.AUTHOR:         Rein H. Warmels
!.VERSION:        950804 RHW creation
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
! *** indicate origin
!HELP = stdred
WRITE/OUT "*****    Context CCDTEST (CCD test package) enabled     *****"
WRITE/OUT " "
WRITE/OUT "The following test are implementated:"
WRITE/OUT "  - TESTBA/CCD in_cat [out_id] [meth] [row_ran] [col_ran] [fil_siz] [dec_fac]"
WRITE/OUT "    Do a series of tests on a catalogue of bias frames" 
WRITE/OUT "  - TESTC/CCD in_frm [rows] x_pix [colums] y_pix"
WRITE/OUT "    Compute the horizontal and vertical charge transfer efficiency"
WRITE/OUT "  - TESTD/CCD in_cat [out_id] [dec_fac]"
WRITE/OUT "    Do a test on a catalogue of dark current frames"
WRITE/OUT "  - TESTFA/CCD in_cat [out_id] [meth] [exp_ran] [theshold]"
WRITE/OUT "    Do a series of tests on a catalogue of low count flat frames"
WRITE/OUT "  - TESTS/CCD in_frm1 in_frm2 [out_frm] [dec_fac]"
WRITE/OUT "    Find the shutter error distribution"
WRITE/OUT "  - TESTTA/CCD in_cat [out_id] [area] [select]"
WRITE/OUT "    Do linearity and transfer tests on a catalogue of flat frames"
WRITE/OUT " "
WRITE/OUT "    Single separate commands exist for TESTBA (TESTB1 to TESTB5),"
WRITE/OUT "    TESTFA (TESTF1 and TESTF2), and TESTTA (TESTT1 to TESTT3)"
WRITE/OUT " "
!
!
DEFINE/LOCAL LERR/I/1/1 {ERROR(2)}                    ! save current user level
SET/MIDAS USER=EXPERT
!
set/context ccdred
WRITE/KEYW   BIASMEAN/R/1/1    0               ! mean bias value
WRITE/KEYW   BIASSIGM/R/1/1    0               ! stand. dev. of the mean
WRITE/KEYW   ADUCF/R/1/1       1               ! analog to digital conv. fact.
WRITE/KEYW   ENOISE/R/1/1      0               ! noise in electrons per pixel
!!
CREATE/COMMAND TESTBA/CCD        @s ccdtestb     ! complete bias tests 1 to 5
CREATE/COMMAND TESTB1/CCD        @s ccdtestb1    ! bias test; combined bias 
CREATE/COMMAND TESTB2/CCD        @s ccdtestb2    ! bias test; average r/c
CREATE/COMMAND TESTB3/CCD        @s ccdtestb3    ! bias test; hot pixels
CREATE/COMMAND TESTB4/CCD        @s ccdtestb4    ! bias test; single frame
CREATE/COMMAND TESTB5/CCD        @s ccdtestb5    ! bias test; mean and sigma
CREATE/COMMAND TESTC/CCD         @s ccdtestc     ! ccd charge transfer eff. 
CREATE/COMMAND TESTD/CCD         @s ccdtestd     ! ccd dark test
CREATE/COMMAND TESTFA/CCD        @s ccdtestf     ! ccd low count flat test
CREATE/COMMAND TESTF1/CCD        @s ccdtestf1    ! flat test; combine flats
CREATE/COMMAND TESTF2/CCD        @s ccdtestf2    ! flat test cold pixels
CREATE/COMMAND TESTS/CCD         @s ccdtests     ! ccd shutter test
CREATE/COMMAND TESTTA/CCD        @s ccdtestt     ! ccd transfer and lin. test
CREATE/COMMAND TESTT1/CCD        @s ccdtestt1    ! transfer; create table
CREATE/COMMAND TESTT2/CCD        @s ccdtestt2    ! lin, transfer, shutter err
CREATE/COMMAND TESTT3/CCD        @s ccdtestt3    ! shutter offset, adu conv
!
ERROR(2) = LERR
! 
entry clear
! No action to be taken; all keywords in context ccdred