(ATCScript "FlowGraphTimeseries Script"
  (Arg "DataFileObject")

  (For CurLocation in Locations
    (Graph TIME SDate Edate)
    (Graph Grid 1 1 0)

    (Graph TITLE (+ "Duration Plot at " Curlocation) Caption)

    (Set curMaxAxisVal 0)
    (For CurScenario in Scenarios
      (Set DataSet (DataFile DataFileObject Data Location CurLocation 
                                       Scenario CurScenario
                                       Constituent "Flow"))
      (Set DataSetSubset (DataTSer DataSet SubSetByDate SDate EDate))
      (Graph DATA DataSetSubset)
      (Graph AGGR 4 1 0)

      (If (> (DataTSer DataSetSubset Attrib "MAX") curMaxAxisVal)
        (Set curMaxAxisVal (DataTSer DataSetSubset Attrib "MAX"))
      )

      (If (= CurScenario "Observed")
        (Set Color "Blue")
        (Set LineType 1)
        (Set LegendCaption "Observed")
        (Else
          (Set Color "Red")
          (Set LineType 3)
          (Set LegendCaption "Simulated")
        )
      )

      (Graph CURVE 6 LineType 1 0 Color LegendCaption)
    )

    (C establish maximum y-axis value)
    (RunScript (FileAsString (+ StandardsDir "MaxAxisVal.spt")))

    (Graph SCALE 1 (* 5 curMaxAxisVal) 10 0 0 0 0 0 0 -3.0 3.0 0 0 0 0 0)
    (Graph AXIS 1 1 0 0 "Percent chance FLOW exceeded" "Discharge (cfs)" "YR" "Precip(in)")
    (Graph SHOW DUR)
    (Set curFile (+ OutputDir CurLocation GraphTitle ".png"))
    (Graph SAVE curFile)
    (Graph CLEAR)

    (If (= PrintFile "print")
      (OpenFile curFile PrintFile)
    )
  )
)