%N strfd %F $MIR/src/subs/strf.for
%D Left justify a double into string and return length
%P nebk
%: strings
%B
      subroutine strfd (val, fmt, string, il)
      implicit none

      character*(*) string, fmt
      double precision val
      integer il

  Left justify a double precision number into a string with the given 
  format and return the length of the string.

  Input:
   val     Double precision value to format
   fmt     Fortran format such as "(f7.2)".   No checks are made to
           ensure that VALUE and FMT do not cause a type mismatch
  Input/output:
   string  String to hold result
   il      Length of string.  If the output string is blank, il=1
