17 unsigned nmat = material->GetNelements();
18 float omc, chc, af[nmat], zf[nmat], wf[nmat];
20 for(
unsigned el=0; el<nmat; el++) {
23 material->GetElementProp(ad, zd, wd, el);
24 af[el] = ad; zf[el] = zd; wf[el] = wd;
27 G3MOLI(af, zf, wf, nmat, material->GetDensity(), omc, chc);