%N caclose %F $MIR/src/subs/calio.for
%D Close a calibration set
%: calibration, i/o
%P pjt
%B
        SUBROUTINE caclose(tno)

        INTEGER tno

    CAclose closes a previously opened calibration set.  Omitting this
    call can result in chaos.

       inputs:
           tno -- the calibration set handle
