Searched refs:f_eq (Results 1 – 1 of 1) sorted by relevance
186 subroutine ShashiFormFunction(an_r, f_eq) argument198 PetscScalar an_r(26), k_eq(23), f_eq(26)279 f_eq(1) = atom_h_init &285 f_eq(2) = atom_o_init &292 f_eq(3) = an_r(2) - 1.0d-150294 f_eq(4) = atom_c_init &309 f_eq(5) = k_eq(11)*an_r(1)*an_r(3)**a_io2 &313 f_eq(6) = atom_n_init &318 f_eq(7) = part_p(11) &320 f_eq(8) = part_p(8) &[all …]