module mo_nln_matrix use shr_kind_mod, only : r8 => shr_kind_r8 private public :: nlnmat contains subroutine nlnmat( mat, y, rxt, lmat, dti ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- real(r8), intent(in) :: dti real(r8), intent(in) :: lmat(nzcnt) real(r8), intent(in) :: y(gas_pcnst) real(r8), intent(in) :: rxt(rxntot) real(r8), intent(inout) :: mat(nzcnt) end subroutine nlnmat end module mo_nln_matrix