! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Sparse Stoichiometric Data Structures File
! 
! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : HETCHEM_StoichiomSP.f90
! Time                 : Thu Oct  8 08:22:02 2020
! Working directory    : /Users/lechriso/git/boxmox/boxmox/tmp_HETCHEM_12963_BOXMOX
! Equation file        : HETCHEM.kpp
! Output root filename : HETCHEM
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE HETCHEM_StoichiomSP

  USE HETCHEM_Precision
  PUBLIC
  SAVE


! Row-compressed sparse data for the Jacobian of reaction products JVRP

  INTEGER, PARAMETER, DIMENSION(5) :: CROW_JVRP = (/ &
       1,  3,  5,  6,  7 /)

  INTEGER, PARAMETER, DIMENSION(6) :: ICOL_JVRP = (/ &
       2,  5,  3,  5,  4,  4 /)

  INTEGER, PARAMETER, DIMENSION(6) :: IROW_JVRP = (/ &
       1,  1,  2,  2,  3,  4 /)



!  Stoichiometric Matrix in Compressed Column Sparse Format


  INTEGER, PARAMETER, DIMENSION(5) :: CCOL_STOICM = (/ &
       1,  4,  7, 10, 12 /)

  INTEGER, PARAMETER, DIMENSION(11) :: IROW_STOICM = (/ &
       2,  3,  5,  3,  4,  5,  3,  4,  5,  1,  4 /)

  INTEGER, PARAMETER, DIMENSION(11) :: ICOL_STOICM = (/ &
       1,  1,  1,  2,  2,  2,  3,  3,  3,  4,  4 /)

  REAL(kind=dp), PARAMETER, DIMENSION(11) :: STOICM = (/ &
       -1.000000e+00_dp,  1.000000e+00_dp,  -1.000000e+00_dp,  -1.000000e+00_dp,  1.000000e+00_dp, &
       -1.000000e+00_dp,  1.000000e+00_dp,  -1.000000e+00_dp,  1.000000e+00_dp,  2.000000e+00_dp, &
       -1.000000e+00_dp /)


END MODULE HETCHEM_StoichiomSP

