%N wsplit %F $MIR/src/subs/calio.for
%D Write split variable into an open dataset
%: calibration, i/o
%P pjt
%B
        subroutine wsplit( tno, split )

        integer tno
        logical split

   wsplit writes the split item variable to an open dataset

   inputs:
       tno               -- handle of data set
       split             -- using split in the polynomials?
