%N blname %F $MIR/src/subs/calsubs.for
%D Returns baseline name
%: baselines
%P pjt
%B
        CHARACTER*(*) FUNCTION blname(bl)
        INTEGER bl

       returns a human readable string of the form 'A1-A2' for
       a baseline number A1*256+A2

       Input:
           bl      integer
