test/modules/LinearBoltzmannSolvers/MGDiffusion_KEigen/utils/QBlock_materials.lua

--############################################### Create cross sections
xs = {}
 
for m=0,1 do
    xs[tostring(m)] = chiPhysicsTransportXSCreate()
end
 
chiPhysicsTransportXSSet(xs["0"],CHI_XSFILE,"../Transport_Keigen/xs_water_g2.cxs")
chiPhysicsTransportXSSet(xs["1"],CHI_XSFILE,"../Transport_Keigen/xs_fuel_g2.cxs")
 
water_xs = chiPhysicsTransportXSGet(xs["0"])
num_groups = water_xs["num_groups"]
 
--############################################### Create materials
materials = {}
for m=0,1 do
    key = tostring(m)
    materials[key] = chiPhysicsAddMaterial("Material_"..key)
    chiPhysicsMaterialAddProperty(key,TRANSPORT_XSECTIONS)
    chiPhysicsMaterialSetProperty(key,TRANSPORT_XSECTIONS, EXISTING,xs[key])
end