! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Sparse Jacobian Data Structures File
! 
! Generated by KPP-2.2.1_rs5 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                 : SUAQ_messy_mecca_kpp_JacobianSP.f90
! Time                 : Tue Jan 23 13:18:01 2018
! Working directory    : /gpfs/projects/bsc32/bsc32771/MN3/NMMB/test/KPP/caaba_3.0gmdd/mecca
! Equation file        : SUAQ_messy_mecca_kpp.kpp
! Output root filename : SUAQ_messy_mecca_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE SUAQ_messy_mecca_kpp_JacobianSP

  PUBLIC
  SAVE


! Sparse Jacobian Data


  INTEGER, PARAMETER, DIMENSION(47) :: LU_IROW = (/ &
       1,  2,  3,  3,  4,  4,  5,  5,  6,  6,  6,  6, &
       6,  7,  7,  8,  8,  8,  9,  9, 10, 10, 10, 11, &
      11, 11, 11, 12, 12, 12, 12, 12, 12, 13, 13, 13, &
      13, 13, 13, 14, 14, 14, 14, 15, 15, 15, 15 /)

  INTEGER, PARAMETER, DIMENSION(47) :: LU_ICOL = (/ &
       1,  2,  2,  3,  1,  4,  1,  5,  6, 10, 13, 14, &
      15,  7, 15,  2,  8, 11,  9, 10,  9, 10, 13,  8, &
      11, 12, 13, 10, 11, 12, 13, 14, 15, 10, 11, 12, &
      13, 14, 15, 12, 13, 14, 15,  7, 13, 14, 15 /)

  INTEGER, PARAMETER, DIMENSION(16) :: LU_CROW = (/ &
       1,  2,  3,  5,  7,  9, 14, 16, 19, 21, 24, 28, &
      34, 40, 44, 48 /)

  INTEGER, PARAMETER, DIMENSION(16) :: LU_DIAG = (/ &
       1,  2,  4,  6,  8,  9, 14, 17, 19, 22, 25, 30, &
      37, 42, 47, 48 /)


END MODULE SUAQ_messy_mecca_kpp_JacobianSP

