Identifier     binsrch

 Purpose        Do the binary seach of an array to find the index
                of a given function value(s) 

 Synopsis       status = binsrch(xarr , x, index)
                             

 Arguments      Name      I/O       Type           Description
                -----------------------------------------------------
                xarr      I    any except string   input array 
                x         I    any except string   function value(or array)
                index     O     int array          index (indices array) of 
                                                   x in xarr

 Returns        Error status, 1 for fatal, 0 otherwise   

 Description    A binary search is used to find the values XARR(I)
                and XARR(I+1) where XARR(I) < X < XARR(I+1).

 Comment        

 Example        stat = binsrch(wave, wref, indx)

 Dependencies   CALLS:    sap_error
                CALLED FROM: inter_pol

 Category       ISAP

 Filename       binsrch.pro

 Author         I. R. Khan       

 Version        0.1

 History        0.1 25.8.95   Design and Code --> irk

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