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

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

       CAswrite writes the multiple source names, and a few 
       variables associated with each source. Mainly used for
       planets (size,temp) or unresolved calibrators (flux scale)

   Inputs:
       tno     -- calibration set handle
       i       -- index slot
   Output:
       name    -- name of source
       plstuff -- 4 numbers for each source name
