%N hdcopy %F $MIR/src/subs/headio.c
%D Copy a headfer variable from one data set to another.
%P mjs
%: header-i/o
%B
FORTRAN call sequence:
        subroutine hdcopy(tin,tout,keyword)
        integer tin,tout
        character keyword*(*)

  Copy a header item from one data set to another.

  Input:
    tin         File handle of the input data set.
    tout        File handle of the output data set.
    keyword     Name of the header variable to be copied.               
