Searched refs:molefracs (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ts/tutorials/ |
| H A D | extchem.c | 285 PetscReal molefracs[maxspecies], sum; in FormInitialSolution() local
295 PetscCall(PetscOptionsGetRealArray(NULL, NULL, "-initial_mole", molefracs, &mmax, &flg)); in FormInitialSolution()
298 for (i = 0; i < smax; i++) sum += molefracs[i]; in FormInitialSolution()
299 for (i = 0; i < smax; i++) molefracs[i] = molefracs[i] / sum; in FormInitialSolution()
303 …cPrintf(PETSC_COMM_SELF, "Species %" PetscInt_FMT ": %s %g\n", i, names[i], (double)molefracs[i])); in FormInitialSolution()
304 x[1 + ispec] = molefracs[i]; in FormInitialSolution()
|