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

  Write the value of a header variable which has a double precision value.

  Input:
    tno         The handle of the data set.
    keyword     Name to the keyword.
    value       The double precision value.                             
