Identifier     chk_det

 Purpose        Check if detectors specified in detmask are indeed present
                in in_det

 Synopsis       status= chk_det(detmask, in_det, det_offset, argnam)

 Arguments      Name      I/O    Type       Description
                -----------------------------------------------------
                detmask    I   intarr(52)   detector mask for the selection
                                            of particular detectors (generated
                                            through make_detmask.pro)
                in_det     I   intarr(*)    array containing the actual
                                            detectors (e.g. in1.data.det)
                det_offset I   int          offset for detector counting
                                            (LWS: 0, SWS, 1)
                argnam     I   string       '1', or '2', for first or second
                                             argument

 Returns        0 if ok, 1 if at least one of the specified detectors is not
                present in in_det

 Description    ---

 Comment        ---

 Example        ---

 Dependencies   CALLS: sap_error
                CALLED FROM: arithm

 Category       ISAP

 Filename       chk_det.pro

 Author         E. Sturm (--> ES)
                A. Fiedler (--> AF)

 Version        1.0

 History        0.1   14-09-95  ES    
                0.2   27-09-95  AF   added det_offset and argnam
                                     changed where to total
                1.0   29-11-95  ES   V1 delivery
                1.1   29-02-96  ES   changed into function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Copyright (C) 1995, Max-Planck-Institut fuer extraterrestrische Physik (MPE);
                    Garching, Germany                                       ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;