%N casread %F $MIR/src/subs/calio.for
%D Read source index data
%: calibration, i/o
%P pjt
%B
        subroutine CAsread(tno, i, name, plstuff, err)

        integer   tno, i
        character name*(*)
        real      plstuff(4)
        integer   err

       CAsread reads the multiple source names, and some source
       associated values

   Inputs:
       tno     -- calibration set handle
       i       -- index slot
   Output:
       name    -- name of source
       plstuff -- associate source stuff
       err     -- error code
