%N findbase %F $MIR/src/subs/calsubs.for
%D Returns the baseline number
%: calibration, baselines
%P pjt
%B
        INTEGER FUNCTION findbase(bl, base, nbl)

        INTEGER bl, nbl, base(*)

   Inputs:
       bl   integer     value to look for in the base() array
       base integer     array with nbl valied entries
       nbl  integer     useful array length

       FINDBASE finds index into an integer array, i.e. return the index 
       'idx' such that base(idx) = bl. 
       see also findsrc for its string equivalent
