%N keyd %F $MIR/src/subs/key.c
%D Retrieve a double precision from the command line.
%P pjt
%: user-input, command-line
%B
FORTRAN call sequence:
        subroutine keyd(key,value,default)
        character key*(*)
        double precision value,default

   Retrieve a double precision value from the command line.  If the
   keyword is not found, the default is returned.

   Input:
     key        The name of the keyword to return.
     default    The default value to return, if the keyword is not
                present on the command line.
   Output:
     value      The returned value.
 
