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

  Write a complex valued header variable.
  Input:
    tno         The file handle fo the data set.
    keyword     The name of the header variable.
    value       The complex value of the header variable.               
