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

        CHARACTER dataset*(*)

  Inputs:
       dataset -- name of calibration data set
