aTheme = TheView.FindTheme(aGridName)
aGrid = aTheme.GetGrid
bTheme = TheView.FindTheme(bGridName)
bGrid = bTheme.GetGrid
listGrid = {bGrid}
outGrid = aGrid.Merge(listGrid)
outGrid.SaveDataSet("/home1/alpha62/boleskm/lavaca/burndem".AsFileName)
outTheme = GTheme.Make(outGrid)
TheView.AddTheme(outTheme)