%N wrhdi %F $MIR/src/subs/headio.c
%D Write an integer valued header variable.
%P mjs
%: header-i/o
%B
FORTRAN call sequence:
        subroutine wrhdi(tno,keyword,value)
        integer tno
        character keyword*(*)
        integer value

  Write an integer valued header variable.

  Input:
    tno         The handle of the data set.
    keyword     The name of the header variable.
    value       The integer value of the header variable.               
