%N wrhdia %F $MIR/src/subs/calio.for
%D Write an integer array header variable
%: calibration, i/o
%P pjt
%B
        subroutine wrhdia( tno, itemname, length, value )

        integer tno, length
        character itemname*(*)
        integer   value(*)

   wrhdia:  writes a header variable of unknown type

   inputs:
       tno               -- handle of data set
       itemname          -- name of the item to write
       length            -- number of items
       value             -- value of the item
