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

  Read a complex valued header variable.

  Input:
    tno         The file handle of the data set.
    keyword     The name of the header variable.
    default     The default value to return, if the header variable
                is not found.
  Output:
    value       The value of the header variable. This will be the default
                value, if the variable is missing from the header.      
