%N caerror %F $MIR/src/subs/calio.for
%D Write a calibration I/O error
%: calibration, i/o
%P pjt
%B
        subroutine CAerror(iostat, string)

        integer iostat
        character*(*) string

   CAerror calls the error routine 'bug'

   inputs:
       iostat      -- error number, obtained from previous i/o operation
       string      -- error message string
