%N inipoly %F $MIR/src/subs/calpoly.for
%D Forced initialize polynomials
%: calibration, polynomials, i/o
%P pjt
%B
        SUBROUTINE inipoly
        IMPLICIT NONE

       Calling IniPoly clears all polynomials from memory, and fakes
       the order of the polynomials to -1 for consistency.
       It is normally not called by the user, but getpoly calls it
       on its first call.
