%N putpoly %F $MIR/src/subs/calpoly.for
%D Write out the phase-amplitude calibration fit
%: calibration, polynomials, i/o
%P pjt
%B
        SUBROUTINE putpoly( dataset )
        IMPLICIT NONE

        CHARACTER*(*) dataset

  Inputs:
       dataset -- name of calibration data set
