August 24 2009  10:37:00.127 PM
 
KETEL_ONE
  FORTRAN90 version
 
  Work on the "Ketel One Vodka" problem.
 
  The following challenge appeared in 
  the New York Times, 14 June 2007: 
 
  "Dear Ketel One Drinker: 
  Can you make one hundred words, of four letters
  or more, from the letters in Ketel One Vodka?"
 
  Examine a file "wordlist.txt"
  full of words, and look for "sub-anagrams" 
  (words whose letters are a subset of the target ones).
 
  We only consider words of length at least        4
 
  Copy sub-anagrams to "ketel_one.txt".
  
   Number of words checked                        300249
   Number of words that were "long enough"        298499
   Number of sub-anagrams found                      514
 
KETEL_ONE:
  Normal end of execution.
 
August 24 2009  10:37:02.867 PM