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

  Write a string valued header variable.

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