Indentifier   tippex

 Purpose       To replace specified fluxes with interploated values

 Synopsis      status = tippex (struc_in, struc_out, tip_list
                        [,all_det] [,all_scnt] [,all_sdir])


 Arguments     Name      I/O  Type     Description
               --------------------------------------------------------

               struc_in  I    struct   Input structure (AAR)

               struc_out O    struct   Output structure (AAR)
                                       (unchanged if fatal error)

               tip_list  I    intarr   Array containing the index numbers
                                       of the points to be replaced.
                                       (must be integers between 0 and N-1)

               all_det   I    int      Optional keyword to include ALL 
                                       detectors when updating flux.
                                       (default is to only include
                                       values from the SAME detector
                                       if there is a 'det' tag.)

               all_scnt  I    int      Optional keyword to include ALL 
                                       scans when updating flux.
                                       (default is to only include
                                       values from the SAME scan
                                       if there is a 'scnt' tag.)

               all_sdir  I  int        Optional keyword to include BOTH
                                       scan directions when updating flux.
                                       (default is to only include values
                                       values from the SAME scan direction
                                       if there is a 'sdir' tag.)

 Returns       status:  0 if OK   1 if fatal error

 Description   For every point in the tip list, the "flux" value
               will be replaced by an interpolated value.

 Examples

               In the following example, the output is returned in an AAR
               structure named AAR_FLAGGED.

               To replace fluxes on the 2nd data point (index 1)

                      stat = tippex (AAR_ORIG, AAR_TIP, 1)

 Dependencies   CALLS: kwd_notset, sap_error, update_history
                CALLED FROM: IA, GUI

 Category      ISAP

 Filename      tippex.pro

 Author        R. Narron (IPAC)

 Version       1.1

 History       definition of requirements - rewrite of E. Sturm's
               first draft by B. Swinyard 7/8/95

               0.1  950912 --> R. Narron (IPAC)  Prototype
               0.2  951010 --> R. Narron (IPAC)  New AAR definition
               1.0  951027 --> R. Narron (IPAC)  New parameter checking
               1.1  960716 --> RN added check status from inter_pol

 Copyright (C) 1995, California Institute of Technology.
 U.S. Government Sponsorship under NASA Contract NAS7-918 is acknowledged.
******************************************************************************