15     logical :: budfilerec = .false.
 
   16     logical :: budget = .false.
 
   17     logical :: fileout = .false.
 
   18     logical :: budgetfile = .false.
 
   19     logical :: budcsvfilerec = .false.
 
   20     logical :: budgetcsv = .false.
 
   21     logical :: budgetcsvfile = .false.
 
   22     logical :: qoutfilerec = .false.
 
   23     logical :: qoutflow = .false.
 
   24     logical :: qoutflowfile = .false.
 
   25     logical :: stagefilerec = .false.
 
   26     logical :: stage = .false.
 
   27     logical :: stagefile = .false.
 
   28     logical :: qoutprintrec = .false.
 
   29     logical :: print_format = .false.
 
   30     logical :: formatrecord = .false.
 
   31     logical :: columns = .false.
 
   32     logical :: width = .false.
 
   33     logical :: digits = .false.
 
   34     logical :: format = .false.
 
   35     logical :: saverecord = .false.
 
   36     logical :: 
save = .false.
 
   37     logical :: printrecord = .false.
 
   38     logical :: print = .false.
 
   39     logical :: rtype = .false.
 
   40     logical :: ocsetting = .false.
 
   41     logical :: all = .false.
 
   42     logical :: first = .false.
 
   43     logical :: last = .false.
 
   44     logical :: frequency = .false.
 
   45     logical :: steps = .false.
 
   50   character(len=16), 
parameter :: &
 
   62     'BUDGET_FILERECORD', & 
 
   64     'RECORD BUDGET FILEOUT BUDGETFILE', & 
 
  138     'BUDGETCSV_FILERECORD', & 
 
  140     'RECORD BUDGETCSV FILEOUT BUDGETCSVFILE', & 
 
  195     'QOUTFLOW_FILERECORD', & 
 
  197     'RECORD QOUTFLOW FILEOUT QOUTFLOWFILE', & 
 
  218     'qoutflow keyword', & 
 
  252     'STAGE_FILERECORD', & 
 
  254     'RECORD STAGE FILEOUT STAGEFILE', & 
 
  309     'QOUTFLOWPRINTRECORD', & 
 
  311     'RECORD QOUTFLOW PRINT_FORMAT FORMATRECORD', & 
 
  332     'keyword to indicate that a print format follows', & 
 
  349     'RECORD COLUMNS WIDTH DIGITS FORMAT', & 
 
  370     'number of columns', & 
 
  389     'width for each number', & 
 
  408     'number of digits', & 
 
  444     'RECORD SAVE RTYPE OCSETTING', & 
 
  482     'RECORD PRINT RTYPE OCSETTING', & 
 
  539     'KEYSTRING ALL FIRST LAST FREQUENCY STEPS', & 
 
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name