%N chkpoly %F $MIR/src/subs/calpoly.for
%D Check if the current polynomial is set
%: calibration, polynomials
%P pjt
%B
        LOGICAL FUNCTION chkpoly(code)

        IMPLICIT NONE
        CHARACTER  code*(*)

   Input:
       code    -- 4-character slot code
