module mo_lin_matrix private public :: linmat contains subroutine linmat( mat, y, rxt, het_rates ) !---------------------------------------------- ! ... linear matrix entries for implicit species !---------------------------------------------- use chem_mods, only : gas_pcnst, rxntot, nzcnt use shr_kind_mod, only : r8 => shr_kind_r8 implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- real(r8), intent(in) :: y(gas_pcnst) real(r8), intent(in) :: rxt(rxntot) real(r8), intent(in) :: het_rates(max(1,gas_pcnst)) real(r8), intent(inout) :: mat(nzcnt) end subroutine linmat end module mo_lin_matrix