! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! 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                 : messy_mecca_kpp_JacobianSP.f90
! Time                 : Sun Dec 21 18:36:06 2014
! Working directory    : /.statelite/tmpfs/gpfs/projects/bsc32/bsc32771/MN3/NMMB/test/KPP/caaba_3.0gmdd/mecca
! Equation file        : messy_mecca_kpp.kpp
! Output root filename : messy_mecca_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE messy_mecca_kpp_JacobianSP

  PUBLIC
  SAVE


! Sparse Jacobian Data


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

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

  INTEGER, PARAMETER, DIMENSION(13) :: LU_CROW = (/ &
       1,  2,  4,  6, 11, 14, 16, 19, 23, 29, 35, 39, &
      42 /)

  INTEGER, PARAMETER, DIMENSION(13) :: LU_DIAG = (/ &
       1,  2,  4,  6, 12, 14, 17, 20, 25, 32, 37, 41, &
      42 /)


END MODULE messy_mecca_kpp_JacobianSP

