(ATCScript "Water Balance Row"
  (' nVal, CurScenario, CurLocation, CurConstituent, row are set by main script)
  (If (= CurScenario "CurScenario")
      (Warn "This script is a subroutine for WaterBalance. 
             It cannot be run alone." "Water Balance Row")
      (Else
        (Set curData (DataFile DataFileObject Data Scenario CurScenario
                                             Location CurLocation
                                             Constituent CurConstituent))
        (Set Total 0)
        (Set col 1)
        (For d = 1 to nVal
           (Set val (DataTser curData Value d))
           (Set Total (+ Total val))
           (Grid (Increment col) row (Format (Signif val 4) "####0.0##"))
        )
        (Grid (Increment col) row (Format (Signif (/ Total nVal) 4) "####0.0##"))
        (Grid (Increment col) row (Format (Signif Total 4) "####0.0##"))
      )
  )
)