(ATCScript "Comprehensive Flow Report Driver"
  (Arg CurScenario)
  (Arg Locations)
  (Arg PrecipDSNs)
  (Arg aChanges  (Array "PERLND:PWAT-PARM2:AGWRC:0:0.0"))
  (Arg aNewRunInfo " ")
  (Arg RunHSPF   "True")

  (LoadLibrary "ATCScriptData" "ATCScriptFile"  "ATCScriptGrid" "ATCScriptHspf" 
               "ATCScriptIPC"  "ATCScriptGraph" "ATCScriptMisc")

  (Set StandardsDir "C:\ScriptTest\Standards\")
  (Set Scenarios (Array "Observed" CurScenario))
  (ChDir InputDir)

  (If RunHSPF then
    (' Make changes to original (.sav) uci file)
    (FileCopy (+ InputDir CurScenario ".uci.sav") (+ InputDir CurScenario ".uci"))
    (Set aUci (HspfUciOpen (+ InputDir CurScenario ".uci")))
    (SaveFile (+ OutputDir "HspfUciChanges.txt")
              (RunScript (+ StandardsDir "HSPFUci.spt") aUci aChanges aNewRunInfo)) 
    (Else (' need to open current version of uci)
      (HspfUciOpen (+ InputDir CurScenario ".uci"))
    )
  )
  (HspfEngStop)

  (Set gHspfRunInfo (HspfRunInfo))

  (Set SDate (HspfSJDate))
  (Set EDate (HspfEJDate))
  (Set HspfTimeUnits   "yr")
  (Set HspfTimeStep    1)
  (Set HspfnVals       1)

  (For lCurConstituent in (Array "BOD" "DO" "FColi" "Flow" "Lead" "NH3" "NO3" "PO4" "Sed" "Zinc")
    (RunScript (+ StandardsDir "Constants4" lCurConstituent ".spt"))
    (SaveFile (+ OutputDir "Annual_WatershedSummary.txt")
              (RunScript (+ StandardsDir "WatershedSummaryReport.spt")
                         CurScenario
                         PerConstituent  ImpConstituent PerImpConv   PerImpUnits
                         RchConstituent                 RchConv      RchUnits
                         PtConstituent                  PtConv       PtUnits     PtScenario
                         AreaUnits       TotalUnits
                         HspfAggregation HspfTimeUnits  HspfTimeStep HspfnVals
              )
    )
  )

  (Set HspfnVals (JDateDiff SDate Edate HspfTimeUnits HspfTimeStep))
  (SaveFile (+ OutputDir "Total_WatershedSummary.txt")
              (RunScript (+ StandardsDir "WatershedSummaryReport.spt")
                         CurScenario
                         PerConstituent  ImpConstituent PerImpConv   PerImpUnits
                         RchConstituent                 RchConv      RchUnits
                         PtConstituent                  PtConv       PtUnits     PtScenario
                         AreaUnits       TotalUnits
                         HspfAggregation HspfTimeUnits  HspfTimeStep HspfnVals
              )
  )

  (DataFile TSerFileBin Open "HSPFBinary" (+ CurScenario ".hbn"))
  (SaveFile (+ OutputDir "WaterBalance.txt")
            (RunScript (+ StandardsDir "WaterBalance.spt") TSerFileBin CurScenario)
  )

  (DataFile TSerFileBin Clear)
  (Unset TSerFileBin)

  (HspfUciClose)

  (SaveFile (+ OutputDir "ExpertSysStats.txt") 
            (+ gHspfRunInfo (Chr 13) (Chr 10) (ExpSysStats InputDir CurScenario))
  )

  (DataFile TSerFileWDM Open "WDM" (+ InputDir CurScenario ".wdm"))

  (SaveFile (+ OutputDir "MonthlyRunoff.txt")
            (RunScript (+ StandardsDir "MonthlyRunoff.spt") TSerFileWDM Locations CurScenario)
  )

  (SaveFile (+ OutputDir "DailyMonthlyFlowStats.txt")
            (RunScript (+ StandardsDir "DailyMonthlyFlowStats.spt") TSerFileWDM Locations CurScenario)
  )

  (Set Constituents (Array "Flow"))

  (RunScript (+ StandardsDir "XYGraphTimeseries.spt") TSerFileWDM Locations Scenarios Constituents "XYEntire" SDate EDate)

  (RunScript (+ StandardsDir "FlowDurationGraphTimeseries.spt") TSerFileWDM Locations Scenarios "FloDurEntire" SDate EDate)

  (Set dsnString "")
  (For dsnCounter = 1 to (Len PrecipDSNs)
    (+= dsnString (+ "(DataFile TSerFileWDM Data DSN " (ArrayItem PrecipDSNs dsnCounter) ") "))
  )
  (RunScript (+ "(Set PrecDataSets (Array " dsnString "))"))

  (SaveFile (+ OutputDir "AnnualRunoff.txt")
            (RunScript (+ StandardsDir "AnnualRunoff.spt") TSerFileWDM PrecDataSets Locations CurScenario)
  )

  (Set ScriptTimeseriesGraph (FileAsString (+ StandardsDir "FlowGraphTimeseries.spt")))
  (Set GraphTitle "EntireMonthly")
  (RunScript ScriptTimeseriesGraph TSerFileWDM PrecDataSets Locations Scenarios GraphTitle SDate EDate Arith No 5)
  (RunScript ScriptTimeseriesGraph TSerFileWDM PrecDataSets Locations Scenarios GraphTitle SDate EDate Log   No 5)

  (Set GraphTitle "Entire")
  (RunScript ScriptTimeseriesGraph TSerFileWDM PrecDataSets Locations Scenarios GraphTitle SDate EDate Arith No 4)
  (RunScript ScriptTimeseriesGraph TSerFileWDM PrecDataSets Locations Scenarios GraphTitle SDate EDate Log   No 4)

  (Set wholeSdate SDate)
  (Set wholeEDate EDate)
  (While (< SDate wholeEDate)
    (Set EDate (JDateAdd SDate "yr" 1 1))
    (Set GraphTitle (WaterYear SDate))
    (RunScript ScriptTimeseriesGraph TSerFileWDM PrecDataSets Locations Scenarios GraphTitle SDate EDate Arith Yes)
    (RunScript ScriptTimeseriesGraph TSerFileWDM PrecDataSets Locations Scenarios GraphTitle SDate EDate Log   Yes)
    (Graph Clear)
    (Set SDate EDate)
  )

  ('Set Debug On)
  ('DataFile TSerFileWDM Clear)
  (Unset TSerFileWDM)
  (Unset lCurConstituent)
  (Unset CurScenario)
  (Unset PerConstituent)
  (Unset ImpConstituent)
  (Unset PerImpConv)
  (Unset PerImpUnits)
  (Unset RchConstituent)
  (Unset RchConv)
  (Unset RchUnits)
  (Unset PtConstituent)
  (Unset PtConv)
  (Unset PtUnits)
  (Unset PtScenario)
  (Unset AreaUnits)
  (Unset TotalUnits)
  (Unset HspfAggregation)
  (Unset HspfTimeUnits)
  (Unset HspfTimeStep)
  (Unset HspfnVals)
  (Unset ScriptTimeseriesGraph)
  (Unset dsnString)
  (Unset Sdate)
  (Unset EDate)
  (Unset wholeSdate)
  (Unset wholeEDate)
)