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

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

   rdhdia reads a header variable of unknown type

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

   outputs:
       value             -- value of the item
